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ABSTRACT 


This tnesis is, in oart, based uvon the work of Lieutenant 
Commander Isidore L'Artique Tobin IT1, Suonly Coros, United States 
Navy, as set forth in his thesis: "Management Games as an Academic 
ae 


a 


and Military Instructional Device," University of Kansas, 196 
This computer orogramed simulation is a departure from the olans 
and flow charts as set forth in his thesis, but many of the ideas 
develoned in his work were used in the orevaration of this model. 
It would vrobably not have been nossible to comolete this model if 
his work had not already been available to draw uovon. 

Other very helpful information and exverience was received 
from the study of and the varticivation in the IMAGINIT Management 
Game whicn is a creative business decision simulation develoved by 


ieee ricgard F, Barton, Professor in the School of Business, 


University of Kansas. 
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INTRODUCTION 


Background 


The construction of any entity, whether it is a large building, 
a rocket or a literary work, should not commence until the necessary 
groundwork or foundation has been prevared. The groundwork for this 
thesis is begun by quoting a few definitions from the Funk and ‘Wagnell 
Standard Dictionary of the English Language. The first definition is 
of the work "system" which is given as "an orderly combination or 
arrangement, as of parts or elements, into a whole; specifically, 
such combination according to some rational principle." The next 
definition is of the word "simulate: and is stated as "to assume or 
have the aovearence or form of, without the reality." The last word, 
"model", is defined as "that which strikingly resembles something else; 
an approximate copy or image." One might then define the simulating or 
modeling of a system as the creating of another orderly arrangement of 
parts that gives the appearence or image of the simulated or modeled 
system. This would not mean that it is necessary for the model to be 
a physical replica, but it would mean that the new system should react 
or respond to the same stimuli in a manner similar to the one being 
moceled, Io obtain this reaction or response is the crux of dynamic 


real life system simulation. 








Comouter Program Model Building 

Model building or simulation dates back before the days of the 
Egyotians. ~ Until World War II most models were rigid physical replicas 
normally on a smaller scale. During and after World War II it became 
possible to model dynamic systems of real life events without physical 
likenesses. This was brought about by the development of the high speed 
comouter, The system to be simulated is modeled in mathematical equation 
form and, utilizing the theory of orobability and random selection, 
events in a dynamic system can be simulated. 

The comouter utilizes the mathematical equations, together with ~ 
added data, and processes a very large number of operations on them in 
a small amount of time. This vermits the model to function over a long 
period of simulated time in a very short veriod of actual time. Reports 
of situation status or feedback can also be obtained and through analysis 
it can be determined in what manner the system model reacted to a certain 
stimulus. This technique is varticularily useful during the building 


ohase of the model. 


Use of Comouter Procram Models 

Computer program models are basically used for two purposes. One 
puroose is to discover methods and means to imorove a system and the 
other is to utilize the model for training versonnel in becoming 


Bea: 2 
familiar with the system. & should be kept in mind that the word 


system has been used in a broad sense. 


Puroose 
This thesis is the result of an attemot to model a system which 


is an industry of indepencent oil comoanies. It is hoved that the 








simulation will vrovide a tool for the training of vstudenvs of Pevrolemn 
Engineering and of Petroleum Management in the areas of reservoir engi- 
neering and financial management. It is exoected that the simulation 
Will subject the student to a real life situation in which he will be 
required to analyze both engineering ana financial data, make decisions 
based eee results of his analysis, and live with the results tnat 
are reflected by the grades given by the model administrator. It is 
hoved that the use of this simulation will also stimulate the otudenie 
desire to obtain a more thorough resaicace of his sveciality area than 
if the simulation had not been used. ‘this stimulation might be accom- 


plished by the gaming asvect of the model and the creation of a comve- 


titive atmosphere by the model administrator. 
Model Descriotion 


General 


? 


The model is generally divided into three parts: lease owner- 
5 | 

shiv determination, lease development and oroduction, and lease and 
comoany accounting. The first vart, lease ownershiv determination, 
resolves which of the companies have purchased leases, which of the 
companies have sold leases and which of the comoanies have reverted or 
abandoned leases. The second vart processes the develooment phase of 
a ourchased lease as to drilling, fracturing, etc. and comoutes the 
Production of oil and gas from each vroducing lease. [he third vart 


uses this output to calculate dollar amounts and performs the lease and 


company bookxeevding. 











Becinnine Procedure 

To set the stage for the detailed descristisn of the moael as 
depicted in the following Ghanters, 1b 1S lelUs fovea sbatet es seman oralon 
of the beginning procedure would be aovrovriate. 

As oresently orogramed, the simulation allows a maximum of five 
varticivating comoanies. ihe students of a class are divided into a 
maximum ot five grouns with each grouo working together as a company. 
Fach student is given a Student's Pamohlet woich is outlined as vart 
of Chanter V. The vamohlet contains a ceneral descriotion of the model, 
procedures to be followed, a list of decisions to be made, a set of 
lease descrintions, a set of engineering study descrivtions and the 
format for the decision input cards. Hach student is also given a list 
seeune leases available for sale, an initial lease oumer"s reaore and 
an initial income statement and balance sheet. 411 commanies start 
with the same amount of cavital as indicated on the balance sheevw. 

The amount of beginning capital is at the discretion of the model 
Pominisurator, 

It is necessary for the model administrator to assign various 
varameters to the control orogram. these narameters consist of the 
simulated veriod length, fines and venalties, interest on bonds and 
loans, and others, A list of thess parameters with some recommended 
memes are given in the Model administrator’s Parmohlet which is also 
Sutlinec in Chavter V, | 

The program is written in FORTRAN IV comoutor orogram language and 
Was initially modeled on an I8é 7040/7044 Coereting System. The Fortran 


statements and the description of the variadles usec are set off from tne 





text by dashed lines for clarity. The text adjacent to the Fortran state- 
ments exnlains the reasoning used in writing tne statements as they are 
written and exolains their ourcose in the vrogram. The next three 
chaoters are written in this detailed manner in order that individuals 
wno would like to understand the orocrams calculations, as a model 
administrator or as a future develover of the orogram, may thorouchly 


uncerstand the methodology and the rational utilized to build the model. 





CHAPTER DL 
LEASE OWNERSHIP DETERMINATION 


Lease Bidding 
The first part of the vrogramed model establishes the otmershio 
of the leases. Establishing ownershio is necessary before oursuing the 
develooment and vroduction and the accounting varts of the simulation 
iniorder that each company's accounting can be carried out oroverly 


throughout the rest of the program. 


Comnetitive Bidding 

The lease bidding simulation is orocessed as a closed bid 
comoetitive system of bidding that is common to real life bidding on 
oroverty and contracts. Leases are offered for sale by the model 
administrator as indicated in the vrevious chapter. Companies are 
allowed a maximum of eight leases to bid on for each simulated time 
veriod. 

Each company's bid is read from two innut cards orevared by 
the company. Since this is closed bidding situation, bids of a company 
are not to be disclosed to other comvanies. 


Sse eee SF 2 Bet e222 2 BF SS SBS SSeS PO SF SE BP ePs— ses SF SF BSB SSF SPB SBS SF SS SPs See eS Se eS Sw SS SB Ss SB SP SB Se Se eS eS Se Se eS eS Se eee Se eS ee ee ee 


DO 130 I = 1,NPLAY 
READ i) CLR isle melee») 
READ (5,11) (BID(I,J,2), J=1,8) 


Wheres: NPLAY = number of comoanies varticivating 
BID(I,J,1) = lease numbers of leases that bids are being made on 
BID(I,J,2) = amount of money bid for the lease 





On the first card all of the lease numbers of the leases to be 
bid uvon are vunched in the orover format. This format is given in the 
Student's Pamphlet which is part of Chanter YV, On the second card are 
listed the amounts of money being offered as a bid for the corresoond- 


ing leases on the first card. 


Bias tor Available Leases 





The next overation for determining lease ownershiv is the 
vicking of the first lease available for sale. 


— mp om em cm om om oe co em oe es i i ee a ee ee eee ie i ee ee ee ee ee ee es ee ee ee es ee ee ee 


iPeCLEASE(IL). CPlej GO Te g2060 
200 fae = LEASH) 


array holding list of available leases 
a temporary holding space 


i 
ze) 
non 


If LHASE(II) contains a number other than zero, the number is 
the number of a lease that is available for sale. II will actually be 
the lease number that should be there if all leases are availatcle for 
sale. The lease number is then converted to a floating voint variable 
and stored in TEMP. 

The program now checks each company's bids to determine if a 
company has bid and if the bid is on this varticular available lease. 


blr A i ee ce i ie i i i i ee ee ee ee ee ee 


BOeZOleL = 1 iNPLAY 

Dee202 J = 1.3 

i BED (Edie elL? 0. Ol) COmme uz 

Tr Geip(l J,1), Se.t ee pe eben 0) GO TO. 22% 
TE (BLO(E Jape n0. tame) Co 10 203 

GO TO 202 


Where: NCHECS = a fixed voint variable used to determine if the leas 
in question has ceen bid uvon by a vrevious comoany 
during this simulation period 


(D 











Determination of a Lease Buyer 

If a commoany has not bid upon the lease, the orogram goes to the 
next company and repeats the orocedure until all of the companies’ bids 
have been checked. If one or more companies have bid on the lease, the 
first comoany's bid is detected by NCHECK = Q, 


224 IF (BIDMIN.GT.BID(I,J,2)) GO TO 201 

FOLD2 = BID( La je2 

NEU 1 

i a) = 

NGHSCK = 1 

GOmrOs202 
Where: HOLD 2 a temporary holding soace for the bid amount 
the number of equal bids on a varticular lease if any oecur 


IDENT(L) = array holding the identity-of the companies making equal 
bids 
= the minimum acceotable bid set for the lease 


BIDMIN 

The orogram checks to see if the bid amount is larger than the 
minimum bid acceptable for the lease if one is given. Jf the bid is less 
than the minimum bid, the bid is rejected and the program goes on to the 
next company. If it is greater than or equal to the minimum bid, the 
amount bid is stored in the temoorary storage space called HOLD2, NEQUAL 
1s set equal to one, the first storage space in the identification array 
is set equal to the comoany number making the bid, and NCHECK is set equal 
Ro one. 

The program now oroceeds to check the remaining companies’ bids” 
to determine if they have bid on the lease. If any other companies have, 
the orogram picks out the highest bid, 





203 LP -(BID( 1,5 523267. BOLD2) G01 263206 
If (BID{(I,J,2).NE.HCLD2) GO TO 201 
NEQUAL = NEQUAL + 11 
IDENT(NEQUAL) = I 
GO TO 201 


The first statement tests to detect if the new bid is greater 
than the orevious bid made on the lease in question. If it is, the 
previous bid is replaced by the new bid. The new bid is disregarded 
if it is less than the orevious bid. If the new bid is equal to the 
Drevious Did, in the third statement one ie added to NEQUAL to indicate _ 
that two comoanies have bid equally on the same lease and in the fourth 
statement the identity of the bidding comoany is stored in the next 
Storage soace of the identity array. 

Once all of the bids have been checked, and only one comvany 
has bid the highest bid, the orogram proceeds to assign that lease to 
the comoany. If no bids have been made on the lease, the next available 
lease is selected and the vrocess is reveated. | 


IF (NEQUAL.EQ.1) GO TO 210 
IF (NEQUAL. EQ.0.AND.NDEAL. EQ. 
IF (NEQUAL.EQ.0.AND.NDEAL. EQ 


0) GO TO 189 
.1) GO TO 199 


Where: NDEAL = an indicator to tell the orogran that a sale is being 
made between two comoanies 


eae eee 2 ee 2 Se Sse SP ee Se SBP SBS SP Bes Se Be SB Fes SSP ewe’ 22 2 SPF SP Peewee ese SS SP SPP eee aee FSS B22 2 22 fs ss = = = = 


If there has been one or more bids on the lease, FOLD2 will hold 





the amount of the highest bid and the array IDENT will contain the 
identity of the comoany or companies making the highest bid. 
When two or more comoanies have made equal bids that are the 


highest bids made, the winning company is selected by a random drawing. 
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209 CALL RANDNO (RNUM) 
e019) 

NEQUAL 

ley 

4 

09207. 1. =i. NEOUnE 

F (RNUM.GT.X.AND.RNUM.LT.Y) GO TO 208 


Z 
ne 


Hon mw 


1 


a 


a 
F (Y.GE.1.0) GO TO 209 
So. 

= IDENT(I) 


ii 
DO 
IE}S 
x 
ng 
af 
ZO7mG 
208 I 


Where: R4ANDNO = a subroutine to generate evenly distributed random numbers 
between zero and one 

lower limit of each increment 

uoper limit of each increment 

the increment 

transfers a fixed-point Variableera 2a (ledeinesooine 
variable 

RNUM = the random number 


Nr kK Pps 


noun wl 


A randon number is called from the subroutine R4NDNO and is divided 
into as many equal varts or increments as there are equal bidding companies. 
The random number is compared to each increment and the increment in which 
the number falls will determine the winning comoany. 

Now that the winning bidder has been established, the vorogram 
oroceeds to assign the company as lessee. It then removes the lease 
number from the list of available leases. 


212 LEESEZ(I,J) = 
LEASE(II) = 0 


Where: LESSEE(I,J) = an array that holds the identity of the leases that 
a company owns 











abe 


The month of ourchase is stored in the array NPDATE for future reference. 


ee Ee ee ee SS Fc cE i i el 


NPDATE(II) = MESES + 1 
INTANG(II) = HOLD2 - TANG(IT) 


Where: HOLD2 = the original bid amount 
NPDATE(II) = the date of purchase 
INTANG(II) = the intangible assets 


TANG( II) the tangible assets assigned to the vroverty 
MES ES the total amount of time simulated 


The intangible assets till be equal to the amount vaida for the lease less 
the tangible assets, if any, which will have vreviously been assigned. 
It might be noted that lease characteristics are identified in the 


characteristic array by lease number whose value is stores as (II), 


Selling of Leases by a Company 





The commanies are also allowed to sell leases to each other but 
not to the model administrator. The vrogram first ferrets out a company 


@esiring to sell a lease. 


a ee ee ow = ow a ee om GF oe ee ee Ge ee om a ee ee ee ow se se ew = om om se ee ee ee ee ew ee oe ee es Se ee eo ow ow ee ee ee ee ee ee ee ee ee ee ee ee em em ew em om em om om om se =e ae ee Ss ee ae ee ae = a= oe 


1, NPLAY 


De Beil Ih = 
DOeze2 = 1.5 

i hCSlD Le) i). Gl. (Or 0d PeGOn Onea. 
GO TO 231 


233 If = =e0b(L,J,1) 
Mineres [i = number ot the lease to be sold 
When a company cesires to sell a lease a negative bid is made on 
the same card that normal bids for leases are made on. ‘the minimun did 


that is acceotable to the seller is punched into the second bid card 











eZ 


where normally the bid amount for leases sold by the administrator is 
ounched. If a orivate deal is desired, the deal must be kent between 
the two varties involved in the deal as the orogram will recognize all 
bids on a lease. Bidding for leases that are for sale by companies, 
whether ouodlic or vrivate, will be accomplished in the same manner as 
bidding for leases that are for sale by the model administrator. 

The orogram next checks to insure that the company attemoting to 
sell a lease actually owns it. 


DO 234 K = 1,MAXOWN 

IF (II. EQ. LESSEE(I,K) GO TO 235 
234 CONTINUE 

GO TO 236 
PENSSL(I,2) + FINE 
=D Aes) 


236 PENSEL(I,2) 
PENSEL(I,1) 


Where: MAXOWN the maximum number of leases a comoany may orn 


PENSEL(I,1) = the number of the unowned lease a company is 
attemoting to sell 
PENSEL(I,2) = the total amount of selling fines for a comoany 
= the amount of venalty or fine 


FINE 
If a company does not own the lease it is attemoting to sell, a 
fine will be imoosed uoon that comoany for making the attemot. This 
fine is a oarameter set by the game administrator. A written notice will 
also be printed in the remarks section of the company balance sheet for 


that period. 


Objective of Lease Bidding 
Lease bidding is thought to be an important vart of this model, 
because it is exvected to sour the student to use his ability, or to 


acquire the ability to analyze both financial and engineering data. 











IES: 


It is necessary for the student to make a good analysis of the data in 
order that companies can make wise bids. Certainly a company may take 
a wild guess and have it turn out to be a good decision. It is thought, 
however, that such comoanies will lose their capital and go bankruot. 
The penalty or fine asvect of seiling leases was included in an 
attemot to orevent the students from trying to foil the simulation by 
selling a lease they do not own, whether it might be for extra capital, 


or it might be to injure another company. 


Lease Reversion and Abandonment 
At certain times and under certain circumstances oil comoanies 
may decide to give up a lease that they have vourchased and can find no 
market for it. There are two other methods by which a company can 
dispose of an undersirable lease: reversion of the lease to the land- 
owner or by voroverly abandoning the lease. Farmouts will be discussed 


later. 


Lease Reversion 

An oil comoany might wish to revert a lease for any number of 
reasons. One reason might be that the company does not have sufficient 
funds or credit available to deveioo a lease within the lease period. 
It may then revert the lease to the landowner to reduce exoenses. 
Another reason might be that the area around the lease has been tested 
with negative results which has reduced the chance that oil or gas may 
be found on the lease. The company may have brignter vrospects for its 


capital and therefore decides not to invest in a development weil. 


In the program a company is allowed to revert a maximum of four 


leases ver simulated time veriod. The lease number of the lease that 1s 
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to be reverted is ounched in the orooer field and read into the vorogram. 


READ (5,11) (RVERSN( 1) J=1, 4) (AeA Gree ee 


DO 


241 I 
2u1 J 


Woof 


1, NPLAY 
1,4 


9 
(RVERSN(I,J).LT.O.01) GO TO 241 
= RVERSN (I,J) 
(NAELLS (LIE meee men Tone) 
2b kK = 1,MAXOWN 


10 (LESSER CI al mmio ein) GO TO 245 
2h. CONTINUE 
Where: RVERSN(I,J) = lease number of lease desired to be reverted 
NWELLS(II,2) = number of wells on the lease to be reverted 


mn erer ee ee ee ee eee ee ee eee ee ee ee es ee ee es eee es eee eee es ee eee ee ee ee ee ee ee es ee ee eee ee eee ee ee Se ee ee ee ee ee ee ee ee oe ee 


The vrogram first checks the Sauereiee entries of the companies. 
If a lease number is detected, owmershio is checked to insure that the 
comoany attemoting to revert the lease actually owns the lease. It then 
determines if there are wells on the lease. If there are, the request to 
revert is ignored, for the lease must be abandoned and not reverted. 
When there are no wells on the lease, and the requesting company owns the 
lease, the orogram reverts the lease to the model administrator witnout 
cost. The lease is then out back on the list of available leases for 
Sale. 


nee ee Pe 2 SBS Se Se SS SSS SS SSS SS eS ee ee ee ee ee ee ee ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eS ee ee ee ee eS ee ee ee eee ee eee oe 


245 LEASE(II) = II 
RVERSN(I,J) = 


= 040 
LESSEE(I,K) = 


i a 





If a company attempts to revert a lease that it does not om 
in an attemot to take advantage of the model or another company, the 
vrogram ignors the request, fines the comoany, and vrints out a note in 


the remarks section of the comoany'’s balance sheet. 
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243 PENRVTI(I,2) = PENRVT(1,2) + FINE 
PENRVT(I,1) = RVERSN(I,J) 
RVERSN(I,J) = 0.0 
Where: PENRVT(I,1) = the array holding the lease number attemoted to 
be reverted 
PENRVT(1I,2) = the array holding the total amount of fines for 
attemoting to revert leases not owned 


The fine is the same varameter as mentioned voreviously in the 


Co 


section on selling leases. 


Lease Abandonment 

Kconomic consideration is orobably the main reason an oil 
company would desire to abandon a lease. Either the lease did not 
orove economically feasible during the develooment stage, or the lease 
has reached its limit of deoletion from production. The difference 
between abandoning a lease and reverting a lease is bee & lease with 
wells must be abandoned. The wells must be closed in and the vroverty 
restored to its original condition, and the comoany must bare these 
costs. The lease being reverted has no wells or voroverty damage and 
therefore no extra costs. 

Fach comvany is allowed to abandon a maximum of four leases ver 
Simulated time veriod. The lease numbers of the leases that are to be 
abandonec are ounched into the lease abandonment request card beginning 
with the left most field. The abandonment entries are read in just 
after the reversion entries. 


READ (5.11) (RVeRSo tele (Xora DCTs eo lees) 
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DO 251.1 =a Nera 

LOs252000=.1 2 

TE AABAND( Ld eine Om Gesu cn 

Il = ABAND(T, oa | 

DO 253 K = 1,MAXOWN 

TF (LESSEBCIAK). BC. CO mnOmae 
253 CONTINUE 


Where: ABAND(I,J) = the array holding the requests for lease abandonment 
After the pvrogram checks through the request for abandonment 

entries and finds a lease number, it insures that the company requesting 

the abandonment of the lease actually owms the lease. If this checks, 


the orogram orocesses the abandonment request. 


ee eS EDOOs Glad) = It 
Weiboe= lit lLbo ir 2) 
ABDCOS(I,2) = ABDCOS(1I,2) + WELLS * ABDNFT 


Where: ABDCOS(I,1) = the array holding the lease numbers of the leases 
on which the abandonment costs occurred 


ABDCOS(I,2) = the array holding the amount of abandonment costs 

WELLS = a floating point variable used to transfer a fixed 
point variable to a floating point variable 

ABDNFT = the amount charged ver well uvon abandonment 


The number of the lease to be abandoned is stored in the array 
ABDCOS(I,1) and the abandonment costs for the lease are computed by 
multiolying the abandonment cost factor times the number of wells on 
the lease. The abandonment cost factor is a parameter assigned pane 
model administrator. 

If it is determined that a comoany has attemoted to abandon a 
lease it does not own, a fine is awarded similar to the fines described 


in the selling and reverting of leases. 














LLY 


PENABD( TL, 1) = ABteGiey) 
PENABD(I,2) = PENABD(I,2) + FINE 
GO TO 251 


Where: PENABD(I,1) = the array holding the lease numbers of the leases 


that have had abandonment attempted 
PENABD(I,2) = the array holding the amount of fines for attemoting 
to abandon leases not owned 
First, the lease number upon which abandonment has been attempted 
is stored in the array PENABD(I,1). The fine is then awarded and the 
total amount is then stored in the array PENABD(I,2). FINE is the same 


parameter that was outlined in the section on selling leases. 


Lease reversion and abandonment provides the comoanies with 
avenues to disoose of undesirable leases. It is expected that before 
a lease is reverted or abandoned, the student will analyze all 
available data in an attemot to determine if it is wise to give uo 
the lease. This analysis should require the exercise of both his 


engineering and his financial management knowledge. 














CHAPTER III 
LEASE DEVELOPMENT AND PRODUCTION 


Labor 
Almost all of industry must deal with organized labor in some 
manner. To achieve a bit more realizm in this industry simulation, the 


effects of labor contracts and negotiations have been included. 


Labor Contracts 

It has been assumed for this simulation that all of the 
indevendent oil companies’ labor forces have been unionized. The 
relationshio between the company and the union is in either one of 
two states; either there is a contract in force or there is a period 
when negotiations are taking olace. 

When the comoany and the union have a contract in force, the 
company can not alter the wage rate. 


PAYSS5 
agave 


IF (REQPAY(L).GT.1.1*PAYBAS) REQPAY(I) = 
IF (REQPAY(I).LT.9.9*PAYBAS) REQPAY(I) = 
IF (RLABOR.GT.0.1) REQPAY(I) = RLABOR 


* 


all 
9 


Where: RLABOR 


the parameter to control whether or not a labor 
contract is in effect 

the oarameter to control the basic wage rate 
the array that contains the companies’ requests 
to change the labor wage rate 


PAYBAS 
REQPAY (TI) 


As shown in the third statement above, when the varameter RLABOR 
is set at some value greater than one tenth, the companies’ requests to 
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change the wage rate are nullified by setting them equal to the amount 
set in RLABOR. RLABOR is a parameter set by the model administrator and 
can be used to vary the sensitivity of the strike feature of the simula- 
tion. If an amount greater than PAYBAS is set into RLABOR, the 
sensitivity of the strike feature is decreased, If the amount is less, 
the sensitivity is increased. PAYBAS is another varameter set by the 
model administrator at the initial starting point of the simulation and 
at is not changed. 

A contract neriod is terminated a a negotiating veriod commences 
when the model administrator sets RLABOR equal to zero. The comoanies 
may then adjust their labor wage rate within ten per cent of the amount 
set in PAYBAS. If they attemot to set it higher or lower, the vorogram 
will automatically assign it back to its related limit. By lowering the 
wage rate below the base rate, a comoany will increase the vorobability 
that it will have a strike. If it increases the wage rate above the base 
rate, the probability of a strike will decrease. 

The status of a labor contract, in effect or not in effect, per- 
tains to the whole industry and cannot be set for individual comoanies as 


the model is presently vorogramed. 


Fringe Benefits 
Another asvect of reality concerning the management - labor 
relationshio is the vayment of fringe benefits. These fringe benefits 
may be ovayment of a certain sum into a retirement fund, voayment of 
medical insurance premiums, or other similar items. In this simulation, 


fringe benefits are not frozen by a labor contract but they may be 


varied uv or down at any time. 
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IF (FRINGE(I).GT.2.0*BENBAS) FRINGE(Z) = 2,0 * BENBAS 


“here: BENFIT a parameter to control tne fringe benerit feature 


FRINGE(T) array holding the companies’ requests to change 
fringe benefits . 
BENBAS = a varameter to set the base benefit rate 


The parameter BENFIT, set by the model administrator, may be in 
a similar manner as the varameter RLASBOR was used for labor wages. If 
BENFIT is set equal to zero, the comoanies will be allowed to vary the 
payment of fringe benefits to its employees. The variation is limited 
to a minimum of zero and a maximum of twice the varameter BzeNBAS which 
is the basic fringe benefit rate set at the initial starting voint by 
the model administrator. If BENFIT is set equal to the same amount as 
BENBAS, fringe benefits will have no effect upon the likelihood of the 
comoany taking a strike. As with RLASOR, if BENFIT is set lower than 
BENBAS, the probability of a strike will increase. If it is set higher, 
the orobability will decrease. 

The effect of the variation of BaNFIT uvoon the ability to vary 
fringe benefits or upnon the sensitivity of a strike will be felt industry 
wide and cannot be set for individual comoanies as the model is oresently 


orogramed. 


labor otrikes and ineir Effects 


Before develooment of the leases can be verformed or the vroduc- 


tion of o11 and gas can be accomolishec, it must be determined if the 





yall 


labor is available to carry out these tasks. If the labor unions have 
called a strike, no develooment or vroduction will oceur for a maximum 
of two months. If the simulated period length is less than two months 
the strike will last for only the veriod length. 
iF (ESTRIK. SO ADs st. Ut. 3) Gon Toss 42 


Where: ISTRIK 
Jd 


is an integer variable reoresenting the variable STRIKE 
the month number of the simulated veriod oresently being 


tod 


If a strike should occur, ISTRIK will equal one and the orogram 
merely byvasses the drilling and develooment routines. 

A strike will or will not occur depending uvon the vrobability 
of a strike and random selection. ‘The probability of a strike is 
comouted by the comoarison of the relative amounts of wages and fringe 
benefits that are being vaid to the comoany's employees. 

First, it is necessary to comoute the average wage and the average 
fringe benefits vaid in the industry. 
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DO 300 I = 1,NPLAY 

IF (REQPAY(I).GT.O.1) PAY(I) = RHOPAY(T) 

IF (FRINGE(I).GT.0.01) EXPBeN(I) = FRINGE(T) 
TEMP = TEMP + PAY(I) 


300 HOLD2 = HOLD2 + EMBBEN(I) 





X = NPLAY 
PAYAVG = TESP/% 
BENAVG = HOLD2/x 


Where: TEMP a temoorary holding variable 


HOLD2 =a temoorary holding variable 
PAY(K) = the wage rate to be in force for this time veriod 
EMPBEN(I) = the fringe benefit rate to be in for this time 


period 
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PAYAVG = the average emoloyee wage rate for the industry 
BENAVG = the average fringe benefit rate for the incustry 
= changes a fixed ovoint amount to a floating voint 


In the second and third statements above, the new wage rates and 
new fringe benefit rates are set for the simulated period. If there is 
no change, the orogram will use the rate from the vrevious veriod which 
will have been stored in the arrays PAY(I) and EMPBEN(I). 

In computing the strike probability, which is represented by the 
variable STarIkKE, the program first ee the wage and benefit rates 
with their respective industry averages. 


STRIKE = (1.0 - PAY(I)/PAYAVG) + (1.0 - PAY(I)/PAYBAS) 
STRIK2 = (1.0 - EMPBEN(I)/BENAVG) + (1.0 - EMPBEN(I)/BENBAS) 
STRIKE = (STRIKE + STRIK2) * STKFAC 

icc tuikeet).O,.Qvns tkmRe = em 

Ee ECotREKH,. GhaeO) STRiKEe=alee 


Where: STRIAE 
STRIK2 
STKFAC 


a variable holding the orobability of a strike 

a temoorary holding variable 

a factor to control the sensitivity of the strike 
probability 


HoH 


The first and second statements above shows that if a company's 
wage rate and fringe benefit rate are equal to both of the respective 
averages and bases, a strike orobability will not be generated. It can 
be easily seen that if one comoany vays high wages and low benefits and 
another company pays low wages and high benefits, the resulting strike 
factors may oe equal. It can also be seen that companies that vay both 
low wages and fringe oenefits will greatly increase their chances of 


getting a strike, STKFAC is a narameter set.in by the model administrator 
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to control the sensitivity of the strike factor or, if it is set equal to 
zero, the strike feature will be comoletely eliminated from the model. 

Although the variable STRiKs# is greater than zero, it does not 
mean that a strike will occur. 


CALL RANDNO (RNUM) 
IF (RNUM.G?.0.0.AND.RNUM.LT.STRIKE) STRIKE = 1.0 
IF (STRIKE.EQ.1.0) GO TO 630 


The determination of the strike status by random number attemots 
to take the human element into account in the simulation. Even if the 
STRIKZ is a nigh number, nine-tenths for examole, a random number larger 
than STRIK® would keep a strike from being called. To relate this to 
real life it would mean that a comoany mignt have a high srobabelake of 
a strike because of low wages and inadequate fringe benefits being aid 
to its emoloyees, but because the emoloyees have other interest in the 


company, they do not want to strike. 


Lease Develo»vment 
The simulation of the development of different tyves of reservoirs 
would take on mammoth vrovortions if all of tne factors describing the 
reservoir and its contents were taken into consideration and made 


compatible. This would be beyond the scove of this thesis, therefore , 





a simolified aooroach was taken. Equations. were selected and exoerimented 
with until they would produce aooroximately the traits cesired. Limits 
were set and in many cases random selection decided the reservoir and well 


conditions. this metnod was used to generate various reservoir and well 
©& 











are 


characteristics such as initial well vressure, recoverable reserves, 
incre letlovera ves, ce. 

Once the initial wells have been drilled and the lease develooment 
wells have been comoleted, it may be desirable to treat the wells. Two 
well treatments are orovided in this simulation: fracturing and acid 
treating. The vorocedure followed oroduces results that aooroximate the 
real life event. 

After the wells ofjaglease have Sstonced flowing by navuralm ounces 
it may be desirable to install oum>s on the ALLS, this event is also 
Simulated in the orogram. If the pumns do not voroduce the desired results 
or the wells have declined below the economical limit Lor pumoine ae 
secondary recovery system may be installed on the lease uvon reauest. 

One departure from reality has been made for the cause of 
Beograming simplicity. If it is desired to fracture, acid treat, install 
pumps, or install a secondary recovery system on a lease, it will be done 
on all of the wells of the lease. Overall lease verformance must be used 


to decide whether or not to invest in one of these imorovements. 


Heplloratory Drilling 








Exoloratory wells may be drilled on a lease whenever requested 
py the comoany who owns the lease. In this work, an exvloratory well 
is the initial well drilled on the lease where there are no other voroducing 
wells. If an exoloratory well is not drilled on an unvroven lease within 
one year of vourchase, a delay ed rate will automatically be charged at 
the amount of one dollar ver acre ver year as stated in the lease descrinvtions. 
Companies are vermitted to drill on a maximum of eight leases for 


each simulated time veriod. «the comoany decisions as to which lease they 
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desire to drill on and how many wells are to be drilled are read into 
the comoutor. 
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READ (5,25) (XDRILL(I,J,1), Jd 
READ (5,25) (mnt ieee 


Where: XDRILL(I,J,1) = the array that holds the lease numbers upon which 
drilling is desired 
XDRILL(I,J,2) = the array that holds the number wells desired to 
be drilled 


Limitations have been set in the model which allow only one 
exoloratory well to be drilled ver month and four development wells to be 
drilled ver month thereafter on the same lease. It was felt that if oil 
or gas was found on the lease, more rigs would be moved in to develov the 
reservoir as fast as vossible. | 

When the comoutor reaches the develooment vortion of the vorogran, 
it checks to determine if a request to érill has been mace and if the well 
to be drilled is an exoloratory well. 
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Powo50 k= 1.3 
IF (XDRILL(I,K,1).EQ.TEMP.AND.NYELLS(II).BQ2.0) GO TO 658 
650 CONTINUE tt” 
658 KOUNT = KOUNT + 1 
IF (KOUNT.EQ.1) WRITE 96,1100) I 
Me ileH oo) WRITE (6.1101) t7 


Where: TEMP 
re LiLo( iT) 
KOUNT 


the lease number as a floating voint variable 
the number of oroducing wells on the lease 
an integer counting variable 


mae 2 ee eee eee eee eee eee eee ee eee ee ee eo ee ee ee eee ee ee eee 2 2 Se ee ee 


The last three statements above are merely statements to control 


the format of the Lease Develooment Revort. 





26 


The next task to be accomolished is to determine if there is oil 
and/or gas under the lease being drilled uoon. All unoroven lease 
descriotions were analyzed and have been assignec a geological chance 
or vrobability of discovery factor the value of which ranges from zero 
to one. The term "geological chance" has been defined as the chance of 
finding 011 on any exoloration attemot .? First, the requested number of 
wells must be reduced by the initial well. 


we a ee em em em em Sew ow = ow ew ee es ow em ow se ee ow ee eo ow ew eo eo ew s ew se ow Se os ew oe ow ew eee! ee ew es ewe ew ee em ew ew ew em es ee oe = a SS ew em = owe em ee es a a as = == 


MOREE (LsK,2) = XDRUMn kenya 
CALL RANDNO (RNUM) 

IF (RNUM.G?.GEOFAC(II)) GO TO 659 
GO TO 660 


Where: RNUM 
GEOFAC (IT) 


a random number between zero and one 
the geological chance of discovery for the lease 


A random number reoresented by the variable 2NUM is called from the 
subroutine RANDNO. It is then comnared with the geological chance factor. 
If the random number is greater than the geological chance factor, a dry 
hole has been drilled. 


659 GEOFAC(II) = 0.0 
HOLD2 = 0.0 
IF (NWELLS(II).£2.0) K =1 
WRITE (6,1103) JJ, K, DRY, HOLD2 


0.0 
0.0 


Where: HOLD2 = a temoorary variable reoresenting the initial well flow rate 


JJ the month numoer of this simulated veriod in which the well 
was drilled 
K = the number of the well drilled this month 


The assumotion has been made in this model that when a dry hole is 





Grilled on.a lease, all other wells drilled on the lease will be dry. This 








is the reason why the geological chance factor is set equal to zero. The 
company wno owns the lease may drill again the next period, but thevresuar 
will again be a dry hole. Each time a well is drilled, a statement is 
orinted on the Lease Develooment Report that includes the month of the 
Simulated period during which the well was drilled, the well number for 
that month, the status of the well (whether it is a discovery well or a 
dry hole), and the initial flow rate of the well. Further information is 
orovided if the well is a discovery well and will be exolained lavera es 
the well is a dry hole, no more wells will be drilled on the lease for the 
period in which the dry hole was drilled even though more wells were 
requested. The vrogram will oroceed to the next lease of the company. 

A well is a discovery well if the random number dratwm is less than 
or equal to the geological chance factor. ‘when it is a discovery well, the 
amount of recoverable oil in the reservoir discovered is determined by a 
random selection vrocess. The method utilizes a distribution of the per 
cent chance of average field size as set forth by F. 4. Lanee in his 
article “How Many Fields Really Pay ore? and graphically illustrated by 
Campbell and Schuh in their vaver "Risk Analysis" Overall Chance of Success 
Related to the Number of Jenene sia The per cent chance of field size was 
divided into nine equal increments and a random number is used to determine 
the catagory of the field size to represent the discovery. 

W S 0.0 
CALL RANDNO (RNUM) 
EOecede k= 1.0 


W= W + FLOAT(K) 
oS WES. 











IF (RNUM.GT.X.AND.RNUM.LE.¥) GO TO 662 


661 X =Y 
Where: A = 
‘= 
W = 


the lower laimit of vne inereneny 
the uover limit of the increment 
a temoorary nolding variable 


The limits or the field sizes were ovicked corresoonding to the 


per cent chance limits. 


Although Lanee's distribution plots as a curve 


on regular coordinates, linear intervolation is used to calculate the 
b J S 


field size that lies between the limits of the increment. It was felt 


that the results obtained would be accurate enough for this vurvose. 


ine caleulavions 


for the nine catagories of reservoir size are 


Similar exceot for the numerical values, therefore only the catagory for 


the increment of between 
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ten and twenty ver cent chance is discussed. 
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662 CALL RANDNO (CRNUM) 
GO TO (663,664,665,666,667,663,669,670,671), K 


664 RESORS(IT) 
APSO | 


DZEROL IL) = 
QZERO(II) = 
PINT(IL) = 
FVF (IT) = 
GO TO 675 

Where: RESORS(II) = the 
LESFAC(IL) = the 
DZERO(II) = the 
O2E2O Gil). = the 
PINT(IT) = the 
FVr (IT) = the 
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The first numoer 


(263. + RNUM * 560) - 10000. 
rESORS(IT) * ,000002 
0.034167 

1./.000006 - DZERO(II)/.995 
1000. + RNUM * 4000. 

1.1+ RNUM * 0.4 


total recoverable oil on tne lease 

factor that limits the numoer of wells on the lease 
slone of the oroduction decline curve 

initial well flow rate votential in barrels ver day 
initial reservoir oressure 

ini eaommavlone volume factor 
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in the first statement above which calculates the 


amount of recoverable oil is the limit for the minimum amount of recoverable 
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oil in the reservoir. The second number is the increment between the 
minimum amount and the maximum amount. 

The lease factor is utilized to determine the maximum number of 
wells that can be drilled on the lease. As will be shotm later, a well 
factor between zero and one will be assigned to each well drilled on the 
lease, and will determine the voroduction rate of the well. As the well 
factors are assigned, their values are subtracted from the lease factor. 
All wells drilled after the lease factor is reduced to zero will be dry 
holes. This vrocedure was used in oreference to using various well 
spacing and location on certain size leases because of its comoarative 
Samplicity. 

The slope of the decline curve revresented by DZERO(II) was chosen 
by exoerimental means. How it was chosen will oe exolained later in the 
section on lease production of this chaoter. 

The initial flow rate votential, or QZERO(II), is the term used to 
describe the best vossible flow rate ver well for the reservoir. The 
equation used to calculate SZERC(II) was derived by integrating the 
equation to descrive the decline of the recoverable reserves between the 


initial flow rate and a low flow rate limit and resulted in: 


q = (RESERVES) (D,) 
O ie = AG On 
Where: Q = the initial flow rate 
RESERVES” = the recoverable reserves 
D = the slove of the oroduction decline curve 
- FACTOR ° = a number chosen that when multiplied by Q. 


established the low flow limit 


The derivation of this equation is given in APPENDIXE. 
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To find the maximum recoverable oil for a well with a well factor 
of one which is the maximum flow potential, the total amount of recoverable 
oil is divided by the lease factor. If this answer is used, the total 
recoverable oil would be recovered when the flow rate declined to the 
low limit vreviously set by multivlying the amount FACTOR times the initial 
flow rate. It is desired, however, that about half of the recoverable oil 
be recovered by natural forces with the rest left to be recovered by 
artificial lifting methods and secondary recovery. Therefore, the quotient 
of the reserves divided by the lease factor is now divided by two. The | 
result is multivlied by DZERO(II) and divided by one minus FACTOR to 
Sbtain QZERO(IT). 

Initial reservoir oressure is not directly related to the well flow 
rate or the amount of recoverable reserves. It is more a ee of deoth 
or the reservoir's natural surroundings, and therefore is vicked by a 
random process. The limits of reservoir oressure are set at 1000 PS i to 
5000 PSI and the orocess chooses some pressure in between the two. 

The initial formation volume factor is selected by the same random 
vorocess between the limits of 1.1 and 1 Be Since the formation volume 
waetor 1S related to the eal oressure, it is related to the initial 
pressure by using the same random number to calculate it. 

The next step is to assign the well a number and a well factor 
and comoute the initial flow rate of the well. 


675 CALL RANDNO (RNUM) 
WELNUM(LASTNM,1) = 
WELNUM(LASTNM,2) = RNUM 
LASTNM = LASTNM +1 
LESFAC(II) = LESFAC(II) - RNUM 
HOLD2 = QZERO(II) * RNUM 


| 
L4 
KH 
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Where: WELNUM(LASTNM,1) = the array holding the lease number in which the 


well is located 


WELNUM(LASTNM,2) = the array holding the well factor 

LASTNM = the index of the well number array which is 
actually the well number 

HOLD2 = a temoorary holding variable that represents 


the initial flow rate of the well 
First, a random number is called and is used as the well factor. 
The well is then assigned its lease number in the first column of the 
WELNUM array, and he well factor is assigned to the corresvonding location 
in the second column of the array. One is then added to the variable LASTNM 
in order that the next number will be ready for the next well comoleted. 
The last characteristics of the well and oil are now calculated. 
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OILFAC = (HOLD2 - HOLD2/EXP(DZERO(II)))/2.0 

Bie = OULPLC/( (PINTO) = Piva) BaP D2520 Cn) =e anor 
CALL RANDNO (RNUM) 

VISCTY(Ir} = 0.1 + 20, * RNUM 

CALL RANDNO (RNUM) 

GORINT(II) = 1000. * RNUM 

NWELLS(II) = NWELLS(II) + 1 


Where: VISCTY(II) = the oil viscosity for the reservoir in centivoise 


GORINT(II) = the initial producing gas-oil ratio 

OILFAC = the average flow rate in barrels ver day over a 
veriod of one month 

le = the productivity index for the well 


In the first statement, the average oil flow rate is determined 
for the first month of oroduction by calculating the rate at time zero and 
the rate at time one and averaging the two values. 

PI, the productivity index, is defined as “the ratio of the rate of 
oroduction, expressed in stock tank barrels ver day, to the »nressure 
drawdoim at the midvoint of the oroducing ‘sneered. oS It is used to 


indicate the oroducing ability of the well. 
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The next four statements determine the viscosity of the oil 
in centivoise and the vroducing gas-oil ratio. Both values are vicked by 
utilizing random numbers to select a value between set limits. Since this is 
the initial well for the lease, the last statement establishes the number 
of producing wells contained in the array N.wELLS for the lease as one. 

All reservoir, well, and oil characteristics calculated are printed 
on the Lease Development Report eer the initial well on the lease. for all 
develonoment wells after the initial well, all of the characteristics are 
printed excent the formation volume factor and the viscosity which will be 
Phe same for all wells on the lease. | 
Develozment Digan ie 

Once a discovery well has been comoleted, the drilling of the 
development wells can begin, The number of the develooment wells drilled 
is limited to four wells per month ver lease. The requests for drilling 
are checked to determine if the comoany desires to drill on its lease. 

IS eee et LAS 


TF (XDRILL(1,K,1).EQ.TEMP.AND. MORILL(T,K,2).GT.0.1) GC TO 651 
650 CONTINUE 


651 KOUNT = KOUNT +1 


ie Gubminci( hh ,2) 6?) 450) 4CO LOscg! 

N = XDRILL(I,x,2) 

ea) ae lee) = OO | 

GO TO 635 dz 
634 N= 4 


SOOPER CLLR Ge seOBCUEL TIN CE) Se eae 
635 CONTINUE 


Mnere: & = the number of wells to be driliec this month 


2 ee ee Se ee ee ee ee es ss a ee es a a ee ee a i ea a eae 2 ee 
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When the orogram discovers that develooment wells are to be drilled, 
it tests to see if the numoer of wells requested to be drilled is greater 
aan fou., Lf it is less than four, the number requested is reduced to 
zero and the wells are drilled. As vreviously stated, the maximum number 
of wells to be drilled per month is limited to four. If the number of wells 
requested to be drilled is greater than four, the alloted four wells are 
drilled and the remaining wells will be drilled the following month if 
circumstances vermit. 


gaewea wee eweereeegeeeegeeGmeeee@e@eee@eez@ ee es Ss SP SSP SP SS SS SS SP ee ee SB SS SS as SF SP SS SP SP Se Se Se SF Se Se SS SP es Ss Se Se Ss Se Ss Ss Se Se ee ees SS SS aS Se aD 


Bemo5e Ko= 1,8 

CALL RANDNO (RNUM) 

IF (LESFAC(II).LT.0.001) GO TO 659 
IF (LESFAC(II)-RNUM.LE.O.0) RNUM = LESFAC (II) 
WELNUM(LASTNM,1) = II 
WELNUM(LASTNM,2) = RNUM 
LESFAC(II) = LESFAC(II) ~ RNUM 
NWELLS(II) = NWELLS(II) + 1 
HOLD2 = RNUM * QZERO(IT) 


652 CONTINUE” 

The procedure is similar to the orocedure used for the discovery 
well with the excention of the third and fourth statements. The third 
statement tests to find out if the limit of the number of wells for the 
lease has been reached. If it has, the well drilled will be a dry hole 
and no more wells will be drilled on the lease for the remaining varvt of 
the simulated time veriod. The fourth statement tests the random number 
Eo cevermine if it is larger than the remaining amount stored in the lease 
factor for the reservoir. If the random number is larger, it is set equal 


to the lease factor. ‘his vorevents the sum total of the well factors from 


becoming greater than the original lease factor. 
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Development drilling will continue as long as it is requested 
at the rate of four wells ver month until the lease factor is reduced 


tou Zero. 


Well Treating, Artificial Lifting, and Secondary Recovery 


EES I 





Well treating in the model includes well fracturing and acid 
treating. Comoanies may have the wells fractured on a maximum of four 
leases and the wells acid treated on a maximum of four leases during a 
Simulated time veriod. The lease numbers of the leases on which the 
company desires to have the wells fractured or acid treated are read 
into the computor. 

READ (5.25) (REQERC(I,d), J = te) (aeeep i), — ae 
Where: REQFRC(I,J) = the array holding the identity of the leases 

requested to be fractured 


REQFRC(I,J) = the array holding the identity of the leases 
requested to be acid treated 


Before the oroduction of gas and oil on a lease is calculated, the 
request arrays for fracturing and acid treating are checked to find out if 
the wells on the lease are to be fractured or acid treated. 


==> GDP a= ee ee 8] ew ow ow ee Se ae ee ee 2 eS es ee ee 2 ee ee em ee ee OP em em em ee ee ee ee ee em ee em ee em em ee ee ee a em em em ee em em em ee ee ew em em es eo em eo em em om em cies op = == = 


DO 648 k = 1,4 
IF (REQFRC(I,K 
IF (REQACD(I,K 


) GO TO 633 
).EQ.TEMP) GO TO 633 


648 CONTINUE 


Wheres TaiiP = a temoorary floating voint variable holding the lease 
number in question 
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If a request for fracturing or acid treating is made, there will 
be no vroduction on the lease for that month of the simulated veriocd. 
Drilling is done, however, for fracturing and acid treating may be 
thought of as an extension of the well comoletion routine. 

Once the orocuction calculations are bypassed and any requestec 
drilling is completed, the request arrays are again checked. 


676 X = NWELLS(IT) 
IDO, (oye |e aL al ; 
IF (REQFRC(I, On 
IF (REQACD(I,X). 
677 CONTINUE 
GO TO 632 


ts ts 


If there are no requests to fracture or acid treat the wells on 
the lease, the vrogram oroceeds either to the next month of the simulated 
period or to the lease accounting section. 

when there is a request for the wells of a lease to be fractured, 


whether or not the fracture treatment is successful is next determined. 


685 RESFRC(I,K) = 0.0 
IF (NO(II).NE.30.0R.NO(II).NE.40) GO TO 687 
NO(II) = NO(II) - 5 
CALL RANDNO (RNUM) 
IF (RNUM.LT.FRCFAC) GO TO 687 


Wheres rRCFAC = parametric variable reoresenting the chance that the 
fracture treatment is not effective 

the control array for well treating, pune and 
secondary recovery 


= 
© 
“~~ 
tH 
ae | 
~Y 
if 


The control array given above as NO(II) is used to control the 


number of times well treatments, installation of oumos, and installation 
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of secondary recovery can be carried out on a lease, and the order in 
which they are carried out. It limits each lease to one fracture treat- 
ment and one acid treatment oer well. Each time the attemot is made to 
fracture or acid treat a well after the initial attemot, the treatment 
will not effect the wells orocuction rate but the company will lose one 
month's production from the lease. Fracturing and acid treating the wells 
of a lease can be verformed in any order, however, they may not be done 
once pumos and/or secondary recovery systems have been installed on the 
lease. The control array also limits a company from installing a secondary 
recovery system on a lease before the company installs oumos. If a lease 
is sold to another comvany, the ourchasing comoany must abide by the condi- 
tions of the lease, i.e. if a well has been fractured it cannot be fractured 
again. ‘the diagram on the following vage illustrates the control array's 
overation. 

A random number is called from the subroutine and compared with 
the varameter FROFAC which is the ver cent chance in decimal form that the 
fracture of the well will not effect the well's oroduction. the value for 
FROrSC is set in by the model administrator at the beginning of the 
Simulation. If the random number is less than the value stored in FRCFAC, 
the program byoasses the fracturing routine, charges the company for the 
fracture treatment of one well, and vrints a statement on the Lease 
Development Report reporting the results. If the random number is greater 
than rxcFaC, the program vroceecs to adjust the initial well flow rate and 
the slove of the decline curve to simulate the effects of a successful 


fracture treatment. 
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QZERO(II) = QZERO(II) * FRFLOW 
DZEROC1T) = BZE 20 oe LEC 


WRITE (6,1105) X, Z 

Where: rarLOv = a number greater than one used to increase the initial 
flow rate 

DECLN = a number used to increase or decrease the decline rate 

The varameters FRFLOW and DECLN are set by the model administrator 
before the simulation begins. If it is thought that the effects on the 
production quantity and on the vroduction decline are not prover, the 
values of the varameters may be changed by locating them in the carry- 
over deck and making the vrover adjustments. 

The next well treatment is acid treating and it is handled similar 
to the fracture treating routine. 


686 REGACD(I,K) = 0.0 
IF (NO(II).LE.30) GO TO 688 
CALL RANDNO (RNUM) 
IF (RNUM.LT.ACDFAC) GO TC 688 
QZERO(II) = QZERO(II) * ACFLOW 
DZER0(IT) = DZERO(IZ) * DECLN 


WRITE (6,1107) X, Z 


Where: ACDFA 


tt 


the parametric variable representing the chance that 
the acid treatment will not be successful 
ACFLOW = similar to FRrLCy 


The adjustments to the initial flow rate and the slove of the 
Gecline curve are similar to that of the fracture treatment. They are 
set in the initial starting deck to make acid treating less effective 


than fracturing. 








The next overation that might be cerformed on the lease is the 


iniscalLacvion of SUMS. 


READ (5,25) (REGPMP(I,J),J = 1,4), (REQSEC(I,J),J = 1,4) 
DO 648 K = 1,4 
IF (REGPMP(I,X).EQ.TEMP) GO TO 690 
IF (RECSEC(I,X).22.TEYP) GO TO 691 
648 CONTINUE 
690 REGPMP(I,K) = 0.0 
THe(OILEAC Cu Ohl Go. Lonoe2 
IF (NO(II).LE.15) GO TO 632 
QZERO(II) = QZERO(II) * PHFLOW 
DZERO(II) = DZERO(II) * DECLN 
NO(II) = 15 
VCFACT(II) = VCFACT(II) * 1.2 


Where: RECPHP(I,K) = the array holding the number of the leases uoon 
which pumos are requested to be installed 
REQSEC(I,K) = the array holding the numbers of the leases upon 
which secondary recovery systems are requested 
to be installed 


OILALW = a varameter holding the allowed monthly vorocuction 
rate of oil 

PMF LOW = Similar to FaslOdeanc 40-LC7 

VCFACT(II) = the variable cost factor used to claculate lease 


operating costs 

The installation of pumos on a lease is handled in a manner similar 
to that of fracturing and well treating with a few exceptions. It was felt 
that the chance of failing to produce results by pumping was small and the 
chance of failure has been ignored. Since additional equioment maintenance 
and operating costs will occur with the installation of pumps, the variable 
cost factor that is used to comoute opverating costs for the lease is 
increased. Also, companies are restricted from going into this phase of 
oroduction as well as the secondary recovery ohase that follows until flow 


rates from the wells droo below the allowed oil vroduction rates. 
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The last vohase that vroduction on a lease may enter is the second- 
ary recovery ohase. 


691 REQSEC(I,X) = 0.0 
IF (OILFAC.GE.OILALW) GO TO 632 
IF (NO(II).EQ.0) GO TO 632 
QZERO(IIT) = QZERO(II) * SRFLOW 
DZERO(II) = DZERO(II) * .9 
VGRAC LG) (= VOEtGiaem 3 
Where: SXFLOW = a varameter similar to FRFLOW, and PMrLOW 
The secondary recovery is also similar to the oumoing vhase. The 
installation and equinment maintenance costs are greater than with just the 
oumos and are simulated by using a larger factor multiplied times the 


variable cost factor. The installation costs will be discussed further 


in the section on company accounting. 


Lease Production 

Much of the simulation of the lease develooment and production is 
based uoon the generation of vroduction pec iine eae it has been stated 
that there are basically two classes of decline curves that describe the 
production rate decline of reservoirs. These two classes are the hyperbolic 
and the exvonential artagsceed Of the two, the exponential class was chosen 
to be used in this model because it was simple to work with and it vroduced 
the desired results. 


The formula given to describe the exoonential decline curve is: 


m -Dt 
dy = 4° 
Where: q, = the oil vroduction rate at time t 
q = the initial oil oroduction rate 
D° = the Slooe of the decline curve 
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See Aooendix E for the derivation of the equation. 

The value of the slove, D, was oicked exverimentally for each 
catagory of reservoir vreviously mentioned in order that the initial flow 
rate and the amount produced would be within reasonable limits. from the 
equation above and from the equation given vreviously for calculating the 
initial flow rate of the wells, it can be seen that when the slooe, D, 
multiolied by the value for time equals one, about thirty-seven ver cent 
of the reserves, producible by natural forces, have been produced. Also, 
the flow rate at that time is thrity-seven ver cent of the initial well 
flow rate. 

the program first calculates an average oil vroduction factor 
which would be the production from a well for the month if its well 
factor was equal to one. 


OIL] = QZERO(II)/EXP(DZERO(II) * TIME(IT)) 
OIL2 = QZERO(II)/EXP(DZERO(II) * (TIME(II) + 1.0)) 
OILFAC = (OIL1 + OIL2)/2.0 


Where: OIL1 
OIL2 


the production rate at the beginning of the first month 
the procuction rate at the beginning of the next month 


The production rate for the first of the month is calculated and 
averaged with the vroduction rate calculated for the next month. Although 
the line between the two points is a curve and an average assumes it to be 
a straight line, the two points are close enough to give a good Sosegeee 


tion of the average nroduction for the month. 





Next, the program generates an average vroducing gas-oil ratio 


or GOR for the month. 
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GFAC = GORINT(II)/10. 

= (1, + SIN(3.141659 * (3./2. + TIMB(II)/GFAC))) * QZER0(ITI) 
1 * . 30. /DZERO(II))/OIL1? + GORINT(IT) 

GOR2 = (1. + SIN(3.141659 * (3./2. + (TIMES(II) + 1.0)/Grac)))* 
1 QZERO(II) * 30, /DZERO(II)/OIL2 + GORINT(ITI) 

GOR = (GOR1 + GOR2)/2.0 

IF (GOR.LI.GORINT(II)*0.9) GOR = GORINT(II) * 0.9 


S 
ae 


Where: GOR] = the gas-oil ratio at the beginning of the month 
GOR2 = the gas-oil ratio at the end of the month 
GOR = the average gas-oil ratio for the month 
GFAC = a factor used to vary the peak of the gas-oil ratio curve 
The equation for the voroducing gas-oil ratio was determined 
experimentally and is based on a skewed sine curve with time zero starting 
at the minus one point on the curve. The resulting curve is similar to the 
oroducing gas-oil ratio curve that might be plotted for a solution gas 


drive reservoir. An example of the curve can be seen on the following 


page. As can be seen from the last FORTRAN statement above, the gas-oil 





ratio was given a low limit of ten ver cent less than the initial gas oil 
ratio. 

The next task undertaken is the selection of the wells from the 
well number array and the comoutation of the individual well's monthly 
production. Since OILFAC is comouted in daily oroduction, it must be 
multivlied by thirty to obtain the maximum monthly vrocuction rate. 


CiMewAG = OLLFAGe* 30, 

DO 683 K = 1,1000 

IF (WELNUM(K,1).EQ.TEXP) GO TO 684 

GO TO 683 
684 PRDOIL = PRDOIL + OILFAC * WELNUM(K,2) 
683 CONTINUS 





Where: PROCLL = the monthly oroduction of oil 





Lb 





















































00000008 -o eee eee eee NT ee ee oe ee ee P= eee Se ee a eS are Ss aE — 
OSes ether eh sc HOOHHOH HSH SEES ET ELSEES J ] ] OOOOH EO OD EH EHO] 

I Tir i ee “| "ee eseeseeeceee oS) er a eee es 8 en rae \ 

I pueeeebente Jeseeesrcees ] I orete I ow 

| ik fireunen, ee oeene = ‘in ] a ee) Oe! Gass en nama fea 

I I aerubes seeee eee ] Ht 

71 > 1 Sena OA) me 0 ee ee ea en ~ ], 

] I I _, hehe ] ses e+e ] ] | 

I —fow as Oe eee eee Tm 

I ] I eee ° eee J I] —_ 

wm meee ne gee e we eee ewe teen eren CE ee ee 

ps I ] ] ete see I -. 

i iin a ee eee eee nae Tee a) i oes 

I I oe bos i I 








Se a eG eS 
J 


--- 
| 
: 
| 
| 
| 
| 
| 
| 
i 
ea 
a 
pal 
| 





























a a | ool i Eee Se eS ss SS eee 
ee ae ee j—__. - | cee ee rte nm eee ee _fa ee { = | 
a ] as e ff ew. ian oF ae ae oecg.) jane 7 a si 
| ] * J | a or) o® ] 1 
Serer rrr res nn — eee err aes 9 seo ss ee oe mS = SE ae en Se oS SS ra 
] ; I - | * ] I ae ° I I 
ee a ae a roe ies ‘lan ’ i? So ne a 
a eee = > lee ee wae ] I 6s ° ] 
I 4. a ee | Te er a MS Cle ere Cm ea a se ae 
I I { ° J ] ‘ Il @ J 
fe a ——— ae) i le | CO Dh ee oe ea. | ot ins To SS eS] 
! pn ey nea Bes. I ae } ® ] 
| ° . ae ie al — as. a 6s. a ee 
i 2 OS ag in es oat ° ] 


~ 








wanne@ = UdOTZONPOI, TTO ! 


Se ee tn 88 


I 
] 
I 
% a. 
le lee I I 
nc | Cia ine ae meer TT 2 se SaaS io, nc 
I 
I 
i oo oe meee cee 3S DUTQ CSOETIA SOTZETAIIZIVABYS JuTMOTTOJ- oe a 
ouy JO spunaszy ouy Jo go[tdwexa Mouse BoATIND OUL I 1 




















45 


When the program comes to a well number assigned to the lease in 
array WELNUM(K,1), it calculates the well vroduction by multiplying the 
well factor times the maximum average monthly production. At the same 
time this result is added to the sum of the vroduction from the other 
wells on the lease. 

Next, the total monthly production is checked against the allowable 


production for the month. 


X = NWELLS(IZ) 

HOLD2 = PRDOIL 

IF (PRDOIL ,GT.X*OILALW) PREOIL = X * OILALW 

PRDGAS = PRDOTL * GOR * 0.001 

IF (PRDGAS »GT.X*GASLAL'7) PRDGAS = GASALW * X/(GOR * 0,001) 
PRDGAS = PRDOIL * GOR * 0.001 

OILPRD(II) = CILPRD(II) + PRDOTL 

GASPRD(II) = GASPRD(I) + PRDGAS 

TIME(II) = TIMS(II) + PRDCIL/HOLD2 


Where: GASALW = the allowable gas oroduction for the month 


OILALW = the allowable 011 production for the month 
x = the number of producing wells on the lease 
PRDGAS = the monthly oroduction of gas 


The program limits the procuction of oil to that of the monthly oil 
allowable. Next, the gas production is comouted and if the gas oroduction 
exceecs the monthly gas production allowable, the amount of oil voroduced 
is limited to the amount that will produce the gas allowable. ‘The 
cumulative time of vroduction for the lease is now incremented by the 
fraction determinec by dividing the amount of oil actually oroduced by 
the amount of o11 that could have been vroduced if not limited by the oil 
or gas allowable, the vorogram now vroceeds to the drilling routines, 


the next month's vroduction, or to the lease accounting routine. 








Conclusion 

The methods and orocedures used to simulate lease development 
and production have been greatly simplified. The results obtained, 
however, are in the realm of possibility. With further study and develoo- 
ment, this oart of the model could be greatly refined to better simulate 


real life concitions. 








CHAPTER IV 
LEASE AND COMPANY ACCOUNTING 


Lease Accounting 

Federal taxation is a major consideration before transactions 
on proverty can be completed, for about half of the net overating income 
of a company is paid out as coroorate eo. An imoortant deduction 
that is taken before the calculation of Federal taxes that oil comoanies 
enjoy is the deoletion allowance deduction. This allowance is granted 
as a return of investment in a piece of proverty theoretically at the 
same rate that the proverty depreciates in value as the oil is removed. 

section 614(a) of the Internal Revenue Code states: "For the 
puroose of comouting depletion allowance in the case of mines, wells, 
and other mineral devosits, the term ‘proverty' means each sevarate 
interest owned by the eee in each mineral desosit in each sevarate 
tract or varcel of land." This is interpreted to mean that to be a 
unit of land for devletion comoutation purooses, the taxnayer must have 
the same interest in all varts of the unit, he must have acquired then 
at the same time, the unit must be a contiguous tract, and the unit must 
have been acquired from the same eee For the ourposes of this 
Simulation, each lease will be considered as a single unit for the 
comoutation of depletion. It was necessary to verform the lease account- 
ing before the comoany accounting because deoletion must be calculated 


on a single unit basis. 
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Gross Income Per Lease 
The first step in lease accounting is to comoute the gross revenue 
produced from the operation of the lease. 


REVNUE(II) = OILPRD(II) * OPRICE + GASPRD * GPRICE 


Where: REVNUE(II) = the total income for the lease 
OILPRD(II) = the amount of oil produced on the lease for the 
Simulated time veriod in standard tank barrels 


GASPRD(II) = the amount of gas produced on the lease for the 
Simulated time veriod in thousands of standard 
cubic feet 

OPRICE = selling orice of oil ver barrel 

OPRICE = selling orice of gas ver thousand cubic feet 


The assumption is made in the simulation that all of the oil and 
gas that is produced on the lease is sold immediately. OPRICE, the selling 
mrzce of oil, and GPRICE, the selling price of gas, are parameters that 
are set at the initial starting voint by the model administrator. The 
Simulation of market fluctuation of orices such as seasonal variences 
can be accomplished by the variation of oil and gas prices by the model 
administrator if desired, 

The next phase is to comoute the royalty voayment and the gross 
income. 
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ROYLTY(II) = ROYL * REVNUE(IT) 
GxOss (lr) = REVVER Ge) te ROnga lnc iaie 


Where: ROYLTY(II) = amount of royalties vaid out of revenues 


ROYL = rate of royalty vayments 
GROSS = the gross income for the lease 
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The amount of royalty vaid to the lessor is computed by multioly- 


ing the royalty rate ROYL times the earned revenue REVNUB(II). The royalty 
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rate is normally set by the terms of the lease, but in the simulation 
the royalty rate ROYL is a oarameter set by the model administrator 
usually at the initial starting point and it is not changed during the 
simulation. 

The gross income of the lease, which is represented by the variable 


GROSS(II), is simoly the total revenue minus the royalties vaid. 


Equioment Renewal 


There is a certain smaene of tangible equipment on a voroducing 
oil lease, such as oumos, sevarators, vives, tanks, etc., that is used 
to get the oil out of the reservoir and vrocess it for shioment. This 
tangible equioment will wear out with age and must be serviced or revlaced. 
In the model, the companies are allowed to renew tangible equioment on a 
maximum of eight leases ver simulated time veriod. 
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READ (5,11) (RENEV(I,J,1), J = 
READ (5,11) (RENEW(I,J,2), J = 
DO 604 K = 1,8 

IF (RENEW(I,K,1).LE.0.01) GO TO 608 

N = RENEW(I,K,1) 

IF (N.EQ.LESSEE(I,J)) GO TO 605 
604 CONTINUE 


Where: RENEV(I,K,1) = the array holding the numbers of the leases where 
the requested equinvment renewal is to be made 


RENEW(I,K,2) = the array holding the amount in dollars of the 
equioment to be renewed 
N =a temoorary variable used to change a floating 


point variable to a fixed voint variable 
To renew equioment on a lease, the student vcunches the lease 
numbers of the leases on which it is desired to renew equipment in the 


first equioment renewal card starting in the left most field. In the 





corresponding field, on the second equioment renewal card, is punched the 
dollar amount value of the equioment desired to be renewed. 

When the comouter reaches the equinment renewal section on the 
model, it tests to see if the company, whose leases it is orocessing on 
a varticular loov, desires to renew equinoment on any of its leases. If 
the comoany does desire to renew Sninencns on a lease, the lease numbers 
of the requested equinoment renewals are checked to determine if the lease 
being vrocessed is one of them. If there is no equipment to be renewed 
on the lease Beane processed, the vorogram by-vasses the equioment renewal 
section. When there is equinment to be renewed, the orogram comoutes a 
factor to determine the effect of the renewal on the overall life of the 
equioment and the variable cost factor. 


605 FACTOR = (EQCOST(II) ~ TANG(II))/RENEW(I,K,2) 


MI CEACTOR.bts0.75) TAC TOR => 
PCAC LOR. Gr, 20,0)) PACTOR =—sz20n0 
Where: FACTOR = a variable which is an indicator of the effect 
of the amount of equinment renewal on the equinment 


life 


EQCOST(II) = original equipment cost 


The variable FACTOR is computed by dividing the equioment 
devreciation, which is equal to the original cost EQCOST(II) less the 
undevreciated value contained in the variable TANG(II), by the value 


invested in the renewed equioment. Limits were then set on FACTOR for 





the following two reasons. First, the FACTOR is limited to a lower limit 
of 0.75, because it was felt that if all of the equioment was comoletely 
reovlaced and also taking into account imorovements on the equinment, the 


new equioment would probably not increase effectiveness much more than 
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twenty-five ver cent over the original equipment when it was new. Second, 
the uoper limit was established to orevent a very small renewal request 
from jamming the program. The number twenty was an arbitrary number. 


TANG(II) = TANG(II) + RENEW(I,K,2) 
IF (EQCOST(II).LT.TANG(II)) EQGCOST(II) = TANG(IT) 


The first statement above adds the amount of renewal to the 
undepreciated amount of the equioment in order that a new depreciation 
schedule will be followed. Next, the original cost of the old equipment 
is compared with the new equipment cost. If the nen equivment cost is 
higher, the original cost is set equal to the new amount. 

When the equipment is completely renewed, the equioment variables 


in the vrogram are returned to the state they were in when the equipment 


was new. 
VCFACT(II) = VCFACT(II) * FACTOR 
RQAGE(II) .= 0.0 
EQLIFE(II) = EQLIFE(II)/FACTOR 


Where: VCFACT(II) = the variable cost factor for determining the variable 


vroduction cost ver barrel of oil 
EQLIFE(II) = the expected life of the equipment in months 
EQAGE(II) = the age of the equioment in months 


The variable VCFACT(II) is used to compute the variable production 
Se@euoer barrel of oil. This cost factor is originally set in by the 
model administrator for what might be termed as standard original equiv- 
ment. Jf imoroved equipment is installed, the basic cost factor is 


reduced by dividing it by the effect variable FACTOR. Next, the equioment 





age for the lease, represented by the variable EQAGE(II), is set to zero 
for the equipment is sunvosedly returned to its original or better 
condition. Also, if better equioment is installed, the equioment life 

is usually longer than that of the original equiovment. The new equin- 
ment life is extended by dividing the original equipment life, reoresented 
by EQLIFE(II), by FACTOR and the quotient is stored back in EQLIFE(II). 


IF (FACTOR.GT.1.0) GO TO 60? 
607 EQLIFE(II) = EQLIFE(IT) + EQAGE(IT)/FACTOR 
The amount of money invested in equioment renewal at times will be 
less than the amount of the original equircment depreciation. ‘When this 
happens, the equinment life is increased by adding an amount equal to 
the equipment age or EQAGE(II) divided by FACTOR. As will be show later, 


this will effectively reduce the variable vroduction costs ver barrel 


Oreo1l , 


Lease Overating Costs 





Lease overating costs are defined for this work as the direct 
costs to overate the lease. The fixed cost vortion is the cost of labor 
which includes both the hourly wage and fringe benefits. the variable 
Bese Dortion concerns the costs occuring from the use of SeHer Gos oumos 
and compressors, and equioment maintenance costs including both labor and 
parts. 


Qwest OOO SO SP SB SF SF SF BF OVP BWSQ e282 8 FT So £8 BF SFT SBT FOS wes 8 8 SF FF SF SF VC SF SO VF SF SFB VWF Fs FBS FOF F@ SF SF SF 8 FF FF FTV SF2 FS | | | 


608 TEMP = NWELLS * 10 
VAR VCFACT(II) * EXP(EQAGE(II) /EQLIFE(II)) 
OPCOST(II) = ALNGTN * TEMP * (PAY(I) + EMPBEN(I)) + VAR * OILPRD(II) 
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Where: VAR 
OFCOS Gln) 


the variable cost to produce one barrel of oil 
the total overating cost for the lease for this 
Simulated time veriod 


Variable production costs are computed as an exoonential function 
utilizing the ratio of the equipment age to equinment life (EQAGE(II)/ 
EQLIFE(II)). As mentioned above, variable costs will decrease if equiv- 
ment is partially renewed, for the life of the equioment is increased 
moren in turn eee the value of the exoonent. ‘hen equivment is 
completely renewed or improved equioment is installed, EQAGE(II) is set 
to zero and the value of the function is one, therefore, variable 
oroduction costs start back at the bottom of the curve and are equal to 
VCFACT(II). In the case of imoroved serena being installed, EQLIFE(II) 
was increased which effectively will delay the builduo of variable costs 


resulting in a cost savings to the company. 


Kouioment Denreciation 

Deoreciation is defined as a reasonable allowance for the exhaus- 
tion, wear and tear, and normal obsolescence of proverty used in a trade 
or mieiness.—- This allowance is deductable from revenues before comouting 
the Federal tax on income. 

Depreciation can be calculated by one of three methods: the 
straight line method, the declining balance method, or the sum of the 
year-digits ieneclore Any one of the three methods may be chosen, but 
once a method is chosen, it cannot be changed, with one excedtion. the 
1954 Tax Code allows voroperty owners to change from the declining balance 
method to the straight line method as long as the new rate is less than or 
equal to the rate that would have resulted if the straight line method had 


originally been a 
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The model is programed in such a manner as to simulate the 
allowances of the Tax Code. Companies are allowed to either choose a 
depreciation method or elect to change a devreciation method on a 


maximum of eight leases ver simulated time veriod. 


DO GiomK = 122 
De e(NELECT Gi hapten) sGOmhoucual 
610 CONTINUE 
GO 10612 
pioletee (TELECT( Ei). 20,0) MeRnCT Chm) e— oN HiGEe Belk 
inch LECT LIE), Be.e)). GO Tome 
iP NELECT( 1, K.2). Ro On ai GO TOsom2 
. TF (NELECT(I,K,2).20.1. AND. IELSCT(II).EG.2) GO TO 620 
PENDEP(I,2) = PENDEP(I,2) + FINE 
PENDEP(I,1) = II 


Where: NELECT(I,K,1) = the lease number of the lease for which a 
depreciation method is to be chosen or changed 
NELECT(I,K,2) = the number of the method that is chosen or is 


to be changed to 


TELECT(ITI) = the array holding the elected method of deorecia- 
tion for a lease 

PENDEP(I,1) = the lease number of the lease for which an unlaw- 
ful election of a depreciation method was made 

PENDEP(I,2) = the array holding the total amount of fines awarded 


for unlawful elections of depreciation methods 

The program first checks to find out if the company has chosen, or 
has elected to change a devreciation method. A company may choose, or 
elect to change a depreciation method by punching the number of the lease, 
for which the desired choice or change is to be made, in the first field 
of the depreciation elect card. The method, chosen or elected to be changed, 
is vunched into the corresponding field in the second devreciation elect 
ecard. If no lease numbers are detected, the orogram continues to the next 
section. 

When a lease number is found, the deoreciation method holding 


array IELECT(II) is tested to determine if the method entry is an 
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initial choice. If it is an initial choice, DPELECTCIE an ieecucmeee en 
and the orogram will then set it equal to the method chosen. Should a 
comoany fail to punch a method in the second card and IELECT(II) equals 
zero, the model will allow no devreciation on the equioment on the affected 
lease for that simulated time sauna The orogram next determines if an 
election to change deoreciation methods is lawful. If it is not, the 
company is fined for attemoting to make an unlawful change of deorecia- 
tion methods and a notice is vorinted in the remarks section on the 
company's financial status sheet. The amount in the parameter FINE is 
the same amount used oreviously for venalties. 

The holding array is now checked to find out what method of 


equioment devreciation is to be used. 


ole LP (LELECT( 11). EQ.0) GO TO 616 
Me Lbe i il) BO 1 cO Teno 
IF (IELECT(II).£Q.2) GO TO 615 
IF (IELECT(II).GT.3) GO TO 609 


Again if IELECT(II) equals zero which indicates now that an 
initial choice of depreciation method has not been made, no depreciation 
will be allowed for the lease equioment for that simulated time veriod. 
If IELECT(II) equals one or is greater than three, the straight line 
method will be used. If IELECT(II) equals two, the declining balance 
method will be used. If IELECT(II) equals three, the sum of the year- 


digits method will be used. 


614 DEPREC(II) = TANG(II)/EQLIFE(II) 
IELECT(II) = DEPREC(II) 
GO TO 616 

609 DEPREC(II) = IELECT(II) 





Where: DEPREC(II) = the amount of depreciation to be taken for the 
lease for this veriod 


When the straight line method of depreciation is initially chosen, 
the program computes the amount of deoreciation per month that can be taken 
for the lease by dividing the devreciable value of the equioment by the 
expected life of the equinment (TANG(II)/EQLIFE(II)). The amount of 
depreciation is then stored in IELECT(II) in order that the same amount 
can be used until the equioment is completely depreciated in value. If 
equioment 1S renewed on the lease and the straight line method is being 
used for that lease, IELECT(IT) is reset equal to one and the vrogram 
recomoutes a new rate of depreciation and stores it in IELECT(II). 

For comoutation of deoreciation by the declining balance method, 
the following formula was used: 


a 
BOOK VALUE AT THE END OF Uth YEAR = P(1 - De 3 


Where: P = the initial cost of the equioment 
D = the constant depreciation rate 
U = the last year depreciation was taken 
615 DRATE = 24, /EQLIFE(II) 
TEMP = MESES/12 
TEMP = EQCOST(II) * (1.0 - DRATE)**TEMP 
GO TO 619 


619 DEPREC(II) = DRATE * TEMP * TIMPAC 


Where: DRATE 
TEMP 


the constant depreciation rate 

a temporary variable used as both the year for which 
book value is being comouted and the book value computed 
TIMFAC = the fraction of a year that the simulated veriod 
reoresents 


The constant depreciation rate or DRATE is computed by dividing 


twenty-four by the equioment life (24./EQLIFE(II)) since the rate is 
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actually twice the fractional part of the cost ver year that would be 
taken as devreciation using the straight line method. The number twenty- 
four was used because EQLIFE(II) is in months. A temporary variable TEMP 
is now used to store the number of the year that depreciation was last 
taken. This is comouted by dividing the total amount of simulated time 
that is stored in MESES by twelve. Temo is again used to store the book 
value which is comouted for the end of that year. Finally, the deprecia- 
tion is calculated by multiplying the book value at the end of the 
orevious year times the constant depreciation rate, times the fraction 
of the year being simulated for this veriod. 

The sum of the year-digits method is actually calculated by months 
instead of years. The annual result will be the same although the monthly 
amount will vary a small amount. 


LIFE = EQLEFE(TI) 
DO 64 a = 1,LIFE 
ji 

640 Te = TEMP + xX 


= EQAGE(II) + 1.0 
a (EQAGE(IIL).LE.0.01) X = 0.0 
DO 641 K = 1, LENGTH 
DEPREC(II) =  DEPREC (II) + (EQLIFE(IZ) - X)/TEMP * EQCOST(II) - 
641 X = X + 1.0 


GO TO 616 
Where: LIFZ = equipment life as a fixed point variable 
TEMP = a temporary variable revresenting the sum of the 


months digits 


LENGTH = length in months of the simulated period being run 


The first four statements above comoute the denominator of the 


digits fraction. This number will be the same for the life of the 


equioment unless the equinment is vartially renewed, however, it is 
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recomputed each time to save comouter storage soace. The depreciation 
is determined by a summation of the deoreciation calculated for each 


month for the number of months in the simulated veriod. 


Net Income Before Denvletion 
Net income before depletion is calculated next in order to deter- 


mine which tyoe of depletion method will be used. 


TEMP = G 


au 


OSS(IL) = XLOSS( Tg) DeeREC (TE) @= DRILCS CU Sano ees ane 


Where: TEMP 


a temoorary variable in which net income before 
depletion is stored 
DRILCS(II) = drilling costs that are deductable as expense 
XLOSS(II) = losses that are deductable 


Net income before depletion is found by subtracting decuctable 
expenses from gross income. The deductable exoenses are decuctable losses, 
depreciation, deductable vortion of drilling costs, and lease operating 


costs. 


Devletion 

Devletion for intangible assets may be comoared with devorecia- 
tion for tangible assets. It is an allowance for the decrease in value 
of the lease as the oil and gas are removed. 

Two methods of computing depletion are used. One is cost denle- 
tion and the other is vercentage depletion. 


HOLD2 = INTANG(II) * CILPRD(II)/RZS0RS (II) 
RESORS(II) = RZSORS(II) - OILPRD(II) 





ay) 


Where: HOLD2 = a temoorary variable where the cost depletion 
amount is stored 
RESORS(II) = the amount of recoverable oil that is estimated 
to be in the reservoir for this lease 
INTANG(II) = the intangible assets assignable to the lease 


Cost depletion is calculated by multiplying the uncavitalized 
intangible assets represented by INTANG(II) times the fraction produced 
by dividing the amount of oil produced or OILPRD(II) by the amount of 
recoverable oil in the reservoir. The intangible assets are then 
reduced by the calculated amount of depletion, and the recoverable oil 


in the reservoir is reduced by the amount of the oil vroduced. 


IF (TEMP.LE.HOLD2) GO TO 617 


617 DEPLET(II) = HOLD2 

Where: DEPLET(II) = the amount of depletion computed for the lease 

for this time period 

the temporary variable reoresenting net income 

before depletion 

HOLD2 = the temvorary variable representing the cost 
depletion amount calculated for the veriod 


TEMP 


The first statement tests to determine if the amount of cost 
deoletion calculated is greater than the net income before depletion. 
If the cost depletion is greater, the cost depletion amount is the amount 
of depletion to be used for the lease for this period, and vdercentage 
depletion is not calculated. This normally occurs during the early stages 
of lease development when drilling costs are nigh and voroduction is low. 
When the cost depnletion amount is less than the net income be- 


fore devletion, vercentage depletion is then computed, 
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PER DPI = 0.275) ac ness Gee) 

IF (PERDPL.GT.(0.5 * TEMP)) PERDPL = 0.5 * TEMP 

IF (PERDPL.GT.HOLD2) DEPLET(II) = PERDPL 
Where: PERDPL = the amount of vercentage depletion calculated 

Percentage depletion is defined as twenty-seven and one half 
per cent of the gross income, but it is limited to fifty per cent of the 
net income before depletion. The percentage depletion amount is calculated 
in the first statement above and compared to the limitation of fifty ver 
cent of net before depletion in the second statement. It is then checked 


to see if cost or vercentage deovletion is greater. The larger value of 


the two will be the amount of depletion used. 


Net Income Before Taxes 

Net income before taxes is comouted to provide a gage to 
determine how well the lease is doing toward contributing to the income 
of the company. 


623 BIXNET(II) = TEMP - DEPLET(II) 


Where: BIXNET(II) = the net income before taxes 


The net income before taxes amount is comouted by subtracting 


the calculated cepletion allowance from the net income before devoletion. 


Comoany Accounting 


The ourpose of the accounting for the company transactions is 


to reflect the financial vosition of the companies at the end of each 
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simulated time veriod. This position can be utilized by analysis to 
base future financial and engineering decisions uvon. It can also be 
used by the model administrator to grade the progress of the companies. 
The accounting vrocedure might be thought of as simoly keeving score for 
the comoanies and the Financial Status Sheet reflects the final score at 
the end of the veriod. 

It is common in real life for companies to keep two sets of 
accounting books: one set for tax purposes and one set to "pnresent a 
sound picture of the economics surrounding a venture.‘ ¢ This model 
effectively uses only one set of simulated books that attemots to verform 
the functions of the two. 

At the initial starting ovoint of the simulation, all Sonatas 
start at the same financial position. Each comoany will have an equal 
amount of current and fixec assets distributed in the same manner. 

To start the accounting process for a simulated time veriod, the 
companies' vresent financial status according to the baiance sheet is 
read into the comoutor. 


DO 110 I = 1,NPLAY 
READ (5,11) CASH(I),ASSETS(I), ACCREC(I),4CCPAY(I),INVEST(I), 
STLOAN(I),BONDS(I) ,M@UCTE(I) 


110 CONTINUS 


Where: CASH(I) the cash on hand 


ASSETS(I) = the total assets of the company 

ACCREC(I) = the accounts receivable 

ACCPAY(I) = the accounts vayable 

INVEST(I) = the outside investments of the company 
STLOAN(I) = the amount of short term loans outstanding 
BONDS(I) = the amount of bonds outstanding 

MQUOTE(I) = the vresent market quote 
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At the initial starting point of the simulation, the values 
read in are ounched in the cards of the starting data deck. An administrator 
may easily change these values if he so desires. The market quote, indicated 


above, will equal the book value at the start of the simulation. 


The Acquisition of Cavital 

The acquisition of capital by a comoany is very important to 
its financial stability. The right amount of cavital must be on hand at 
all times to take advantage of ovoortunities within the scove of the 
company's operations as the ovportunities oresent themself. On the other 
hanc, idle coaital is costly and should not be accumulated without a need” 
mor it. 

The program provides three methods to acquire capital: by obtain- 
ing a short term loan, by selling bonds which is considered a long term . 
loan, and by selling stock. The first method to be discussed is a request 
for a short term loan. 


IF (REQLNS(I).LT.O.1) GO TO 127 

CRATIO = (CASH(I) + eS + STLOAN(I)) 

me ORATIO.LE.2.0) RSeLNS(L) = 

Meena lO. Lh.2.0) GO T0129 

TEMP = (CASH(I) + ACCREC(I) - 2.0 * ACCPAY(1))/2.0 - STLOAN(Z) 

IF (RECLNS(I).LE. TEMP) GO TO 129 

REQLNS(I) = TEMP 
Where: REQLNS(I) = the amount a comoany is requesting for a short term 
loan 
the ratio of current assets to current liabilities 
the maximum amount that can be borrowed as a short 
term loan to make the current ratio equal to two 


CRATIO 
TEMP 


Wl 


The first statement above tests to see if the comoany has requested 
a short term loan, and if it has not the orogram byoasses this routine. If 


it has, the current ratio is next comouted for the comoany. 
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The current ratio, sometimes referred to as the “bankers' ratio" 
is frequently used to measure a company's ability to vay its bills by 
money lending organizations. ~” A common ratio used is a ratio of 2-to-l, 
however, some authors question the validity of using the current ratio as 
a measure of the financial strength of a Renee This 2-to-l ratio is 
used as a standard in the model to limit the amount a company may borrow 
by using the short term loan. If the company's current ratio is less than 
or equal to the standard, company will not get the loan, and the request 
will be ignored. If the current ratio is greater than the standard, the 
= comoutes the amount that will make the ratio equal to the standard. 
It then compares this amount with the amount of the loan requested. When 
the amount requested is less than the amount that will make the ratio equal 
to the standard, the total amount requested will be loaned to the company. 
When the amount requested will make the current ratio less than the standard, 
the amount loaned is limited to the amount that will make the current 
ratio equal to the standard. 

Companies may pay off short term loans by requesting a minus loan. 


ite) ie (RECINS(T).LT.(-0.1}) GO TO 128 


GO TO 129 
128 STLOAN(I) = STLOAN(I) + REQLNS(TI) 
CASH(I) =CASH(I) + REQLNS(I) 


Companies have the option of vaying off short term loans at their 
discretion. In the last two statements above, since in both cases the loan 
request, RZ2LNS(I), will be negative, adding the value of the request to 
cash and short term loans will reduce their values by the amount of the 


request. 
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The next method of capital acquisition is by borrowing of a long 


term loan which is the selling of bonds in the model. 


IF (REQBND(I).LT.O.1) GO TO 706 

TEMP = PAYCAP(I) + RTEARN(I) 

IF (BONDS(I).GE.TEIP) RSEQBND(I) = 

IF (BONDS(I).LT. TEM?) TEMP = TEMP — BONDS(I) 
IF (TEMP.GE.REQBND(I)) GO TO 706 

REQBND(I) = TEM 


Where: REQBND(I) = the amount of the bonds requested to be sold 

BONDS(I) = the amount of the bonds the company has outstanding 

TEMP = a temporary holding variable 

The debt/equity ratio is the ratio of the long-term debt to the 
total of the long-term debt plus the ownershiv investments, the ownershino 
investments being the paid in capital plus the retained earnings.” A 
debt/equity ratio of fifty percent is used to limit the companies from 
Borrowing. The debt/equity will be fifty per cent when the amount of 
bonds is equal to the sum of the vaid in capital volus the retained earn- 
ings. When a comoany has bonds outstanding equal to the sum of the vaid 
in capital polus the retained earnings, they will not be allowed to sell 
more bonds. when they request to sell bonds, and the debt/equity ratio 
is less than fifty oer cent, the comoanies may sell bonds until the ratio 
becomes fifty oer cent. 

The last method of obtaining capital for investment is to sell 


shares of comvany stock. 


709 BISTOK = SCLDST(I) * MQUOT(I) 
PAYCAP(I) = PAYCAP(I) + BISTOX 
CASH(I) = CASH(I) + BISTOX 
SHARES(I) = SHARES(I) + SOLDST(I) 
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Where: SOLDST(I) = the number of shares of stock to be bought or sold 


Mon 


BISTOK a temporary variable holding the value of the stock 
either bought or sold 
SHARES(I) = the shares of stock outstanding 


The companies may sell stock at any time in any amounts by merely 
requesting the number of shares to be sold that they desire. The selling 
price will be the new market quote at the end of the simulated veriod 
which will not be known to the companies. The cash and the number of 
shares outstanding will be adjusted accordingly. This routine may also 
be used by companies who wish to invest in their own stock by buying it | 
at the going market rate. This can be accomplished by requesting a number 


of minus shares to be sold. 


Adjusting Payables and Receivables 
The vaying of outstanding bills thereby reducing accounts vayable, 
and the collecting of outstanding receivts thereby reducing accounts 


receivable is executed in the early part of the vrogram. 


129 TEMP = XLNGTH/TERMSR 
IF (TEMP.GT.1.0) TEMP = 1.0 
CASH(I) = CASE(I) + ACCRHC(I) * TEMP 
ACCREC(I) = ACCREC(I) * (1.0 - TEMP) 
TEMP = XLNGTH/TERMSP 
IF (TEMP.GI.1.0) TEMP = 1.0 
CASH(I) = CASH(I) - ACCPAY(I) * TEMP 
ACCPAY(I) = ACCPAY(I) * (1.0 - TEXP) 


Where: TERMSR = the term in months in which the total amount of 
accounts receivable will be collected 


TERMSP = the term in months in which the total amount of 
. accounts voayable will be paid 
TEMP =a temporary holding variable 
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The two variables indicated above as TER'SR and TERMSR are vara- 
meters set by the model administrator at the beginning of the simulation. 
They determine the amount of time it takes to collect all of the receiv- 
ables of a company, and the amount of time it takes to vay all of the 
payables of a company. The awe of these variables must be read into 
the computor in months. A fraction is comouted by dividing the length of 
the simulated time period in months by the value of either TERMSR or 
THAMSP, whichever is being calculated. This fraction is limited to one 
in order to prevent more receivables from being collected than are 
outstanding, or more payables being vaid than are due. It can easily 
be seen that it <LNGTH equals either TERMSR or TERMSP, the total amount 


outstanding will be either collected or paid, whichever is apvrovriate. 


Lease Transactions 

Transactions involved in the vurchase, sale, reversion, and 
abandonment of leases are carried out as they occur. The first transaction 
to be discussed is the sale of leases by the model administrator. 


Mipmeasiii@j = CS5i(l) = “OLD29* Case? 
ACO2wach) = ACCPAM LE) JOD * (ieeanGaols) 


22) IF (NWELLS(T1I).NE.O.AND.NDEAL.EQ.0) EQCOST(II) = HCLD2 * BICSFT 
IF (NDEAL.E3.0).TANG(II) = ECCOST(II) 
NPDATE(II) = MESES + 1 
mmeanactl) = H0Lp2 > TANG(ET) 


Where: CASHFT 
EQCSFT 


the per cent of the vayment that must be in cash 

the per cent of the ourchase vrice that is estimated to 
be the cost vortion related to the tangible equivment 
HOLD2 = a temvorary variable representing the purchase orice 
of the lease 


a 
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First, the cash portion of the oayment for the lease purchased is paid, 
which reduces the total cash of the company. The remaining portion of 
the vayment is added to the accounts payable account of the company. 


Next, if the lease being ourchased is a partially or fully develoved 


dm an Wea) Se 


lease, the orogram uses the varameter, EYCSFT, to determine how much of 
the vurchase orice is the cost of the tangible equioment on the lease. 
The purchase date of the lease is then recorded in the array, NPDATE(II), 
and the remaining vart of the purchase price is considered as an 


intangible asset and stored in the array, INTANG(II). 


When the sale of a lease occurs between two companies, the 
transaction for the purchasing company is the same as if the lease had 
been bought from the administrator. The transaction for the selling ~ 
comoany is handled in the following manner. 


220 HOLD1 = TANG(II) + INTANG(IT) 
IF (HOLD2.GT.HOLD1, AND. MESES=NPDATE(II).GT.6) GAINLT(NDEAL) 
1 GAINLT(NDEAL) + HOLD2 - EOLD1 
IF (HOLD2.LT. SOLD], AND. MESES-NPDATE(II).GT.6) XLOSLT(NDEAL) 
1 XLOSLT(NDEAL) + HOLD1 ~ HOLD2 
IF (MESES ~ NPDATE(II).LE.6.4ND.EOLD1.GT.HOLD2) 
1 OTHLOS(NDEAL) = OTHLOS(NDEAL) ~ HOLD2 + HOLD1 
IF (MESES ~ NPDATE(II).LE.6.AND.HOLD1, LT. HOLD2) 
1 OTHINC(NDEAL) = OTHINC(NDEAL) + HOLD2 ~ HCLDL 
CASH(NDEAL) = CASH(NDEAL) + HOLD2 * CASHFT 
ACCREC(NDEAL) = 3CCREC(NDEAL) + HOLD2 (1. - CSAHFT) 


Where: GAINLT(NDEAL) = the gain realized by the selling company on a 
lease held over six months 
XLOSLT(NDEAL) = the loss realized by the selling company on a 
lease held over six months 
OTHLOS(NDEAL) = the array holding the selling comoany's ordinary 
business losses 
OTHINC(NDEAL) = the array holding the selling company's income 
that is from other sources than normal overations 
the total amount of undenleted and undevreciated 
assets of the selling comoany in the lease sold 
EOLD2 = the selling vrice of the lease 
NDSAL = the variable that represents the selling comoany 


HOLD 





When one comoany sells a lease to another comoany, the selling 
company ordinarily realizes either a capital gain or loss. This gain 
or loss may be dut into one of two classes, either it is a long term 
capital gain or loss or it is a regular business income or loss from a 
source other than normal overations. The classification into which a 
gain or loss falls is determinec by the length of time a comoany has owned 
the asset. If the lease has been owned for more than six months, the gain 
or loss is considered long term. If the comoany has owned the lease for 
six months or less, the gain or loss is considered as a regular business 
income or Nese? 

The first and second Fortran statements above check to determine 
if there is a gain or loss and if the gain or loss can be classified as 
long term. The next two statements check to determine if there is a gain 
or loss and if it can be classified as regular income or loss. Only one 
of the four statements will be true for each transaction, and that 
statement will calculate the gain or loss and store it in the orover array. 

After all of the transactions for the simulated time veriod have 
been comoleted, the net long term gain, if any, is comouted. 


ieCGihel (@.Gr.ALOSLi( 1) ) GemNeR CD) = GiiNii) aes mi 
pc ier t), Le ALCOLT( L)) CATNER Ge = O20 


The net long term gain is then held for tax ourvoses and will be 
exolained later in the section of this chavter on taxation. All long term 
capital losses that cannot be matched against long term cavital gains are 


considerec ordinary losses and are matched against regular income. this 
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procedure of matching long term losses against regular income is contrary 
to the tax laws oresently in force, however, it was executed in this manner 
because it was simolier to orogram and no carry back or carry over is 


WY, 


involved. also, the model takes no action under Section 1245 and 
Section 1250 of the tax law which concerns the recaoture of cevreciation 
as ordinary income when a long term gain is reaiedae 

The transactions involved in lease reversions concern the 
accounting for the intangible assets invested in the lease to be reverted. 


IF (MESES-NPDATE(II).LE.6) OTHLOW(I) = OTHLCS(I) + INTANG(IT) 
ie (MeS PS NPDATE(IL).Gl.G) XEOSLI(1) = “LOSLi (2) == INeANG Ga) 


When leases are reverted, the only capitalized asset invested in 
the lease is normally the bonus vaid for the lease which is considered 
as an intangible asset. The two Fortran statements above determine if 
the loss is a long term or an ordinary loss and stores the amount in 
the orover array. 

The same method is used for the transactions involving lease 
abandonment, however, there may be some tangible assets that must be 
included and also the costs of abandoning the lease must be accounted 
HOT. 


- 254 WELLS = N¥ELLS(II) 
ABDCOS(I) = ABDCOS(Z) + WELLS * ABDNFT 
IF (MESES-NPDATE(II).LE.6) OTELOS(I) = OTHLOS(I) + INTANG(II) 
1 + TANG(IT) 
IF (MESES-NPDATE(II).GT.6) XLOSLT(I) = XLOSLT(I) + INTANG(IT) 
+ TANG(IT) 


Where: ABDCOS(T) 


the total abandonment costs of a comoany for the 
simulated time veriod 

the cost ver well of abandoning the lease 

the number of wells on the lease being abandoned 


ABDN?T 
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The cost of abandoning the lease is considered a direct opverating 
Pevensey It is comouted by multiplying the number of wells on the lease 
being abandoned by the abandonment cost factor, ABDNFT. This abandonment 
cost factor is a parameter set by the acministrator and ie usec to simulate 
the cost ver well of filling in the wells, clearing the lease of tanks and 
Diping, redairing the surface of the lease, and all other costs associated 


with lease abandonment. 


Lease Develooment Costs 
The first cost to be discussed under lease develooment is the cost 
of drilling a dry hole. 


EANDD(T) 


EANDD(I) + DRYHCS 
Where: EANDD(I) = the array holding the deductible costs of exoloration 
and develooment of the companies 
DRYHCS = the cost of drilling a dry hole 


When a dry hole is drilled, the cost of drilling the dry hole is 
written off as an exnense. The cost per well is reoresented by the vara- 
meter, DRYHCS, which is an estimated cost of drilling a dry hold to some 
average deoth. 

When a discovery or develooment well is Grilled, the cost of 
drilling must be broken into two segments: the intangible drilling costs 
that are immediately expensed and the tangible drilling costs that are 
stored in the array TANG(II) and must be devreciated. 
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DRILCS(IT) = DRILCS(II) + DRINTG 
CASH(I) = CASH(I) - CASHFT * DRTANG 
ACCPAY(I) = ACCPAY(I) + (1.0 - CASHFT) * DRTANG 
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TANG(II) = TANG(II) + DRTANG 
ECCOST(II) = EQCOST(II) + DRTANG 


Where: DRILCS(IT) 


the total amount of drilling costs the comoany may 
expense for the lease curing a simulated time veriod 


DRINTG = the intangible porbion of the costs of drilling a 
well 
DRTANG = the tangible portion of the costs of drilling a well 


The intangible costs of drilling a well include all costs of 
clearing the land, making roads, comoleting the well, buying and instal- 
ling temporary equioment necessary for the.drilling operation, and 


installing tangible equinment in the re ees 


Tangible costs of drilling 
a well include the costs of the equioment in the well such as the cemented 
casing even though it is not recoverable, and the costs of all equioment 
on the lease such as pivelines, tanks, separators, etc., that is necessary 
for the production of oil and gas from the well, <* The tangible drilling 
costs must also be added to the value of the equioment cost already on 
the lease in orcer that the prover devreciation rate will be calculated. 
As part of lease development, well treating costs are handled in 

a Similar manner. If the fracturing or the acid treating of a well is not 
successful, the costs are exvensed. 

687 EANDD(I) = EANDD(I) + FRCCOS 

688 EANDD(I) = EANDD(I) + ACDCOS 


Where: FRCCOS 
ACDCOS 


the average cost of fracturing a well 
the average cost of acid treating a well 


The costs of a successful well fracture, of a successful acid 
treatment, of the installation of oumps, and of the installation of a 


secondary recovery system are all accounted for by the same method. 
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676 X = NWELLS(II) 


Z = X * FRCCOS 
2 = X * ACDCOS. 
Z = X * PMPCOS: 
Z =X * SECCOS” 


631 EANDD(I) = EANDD(I) + Z * O.4 
Y=Z * 0.6 
TANG(II) = TANG(II) + Y 
CASH(Z) = CASH(I) ~ Y * CASHFT 
ACCPAY(I) = ACCPAY(I) + (1, - CASHFT) * Y 
EQOCOST(II) = EXCOST(II) + Y 


Where: PMPCOS = the total cost of installing a pumo on one well 


SECCOS = the total cost of installing a secondary system on 
one well 

a8 = the tangible vortion or the cost 

Z = the total of fracturing, acid treating, installing 


pumos, or installing a secondary recovery system on 
a lease 


It should be clear that vart of the costs of the installation of 
pumos and a secondary system such as the cost of the necessary equinment, 
should be cavitalized as tangible costs, and that the rest of the costs 
such as the labor to install the equinment, should be exoensed as intangible 
costs. It is not so clear how the costs of a successful fracture or acid 
treatment should be handled. It was felt that since the well was of more 
value after the treatment, oart of the costs of the treatment snould be 
capitalized. The remaining costs should be exvensed such as the costs 
of temoorary equioment necessary to do the job. An arbitrary fraction 
of six-tenths was selected to reoresent that vortion of the costs that 
are tangible costs. This vortion of the costs must also be added to the 
cost of the lease equinment in order that the orover depreciation rate 


may be computed. 
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Equinment Renewal Costs 


The costs of renewing equinoment on a lease are considered entirely 


as tangible costs. 


TANG(II) = TANG(II) + RENEV(I,K,2) 
CASH(I) = CASH(I) ~ RENEW(I,K,2) * CASHFT 
ACCPAY(I) = ACCPAY(I) + RENEW(I,K,2) * (1. - CASHFT) 


Where: RENEW(I,X,2) = the amount paid for the renewal of equioment on 
the lease 


Any amount of capital spent on the renewal of lease equipment 
will be capitalized as a tangible asset as indicated by the first Fortran 
statement above. The comoany's cash and accounts payable are adjusted 


aecoraing ly. 


Devreciation and Depletion Accounting 

The calculation of depreciation and devletion was discussed in 
the vrevious section of this chaoter on lease accounting. The tangible 
assets of the lease are reduced by the amount of the deoreciation, and 
the intangible assets of the lease are reduced by the amount of the deole- 
onl. 

TANG(IT) = TANG(II) - DEPREC(II) 

INTANG(IZ) = INTANG(II) - DEPLET(IZ) 
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The Financial Status Sheet 
As previously mentioned, the Financial Status Sheet is actually 


a scoreboard that displays each comoany's financial status. It also 
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shows some of the asvects of the industry in which the company is 
commeting. The Financial Status Sheet is divided into four varts: 

the income statement, the balance sheet, the cecisions and environment, 
and the remarks section. 

The income statement is the first section of the Financial Status 
sheet to be discussed. The purpose or the income statement is to show the 
flow of the comoany's funds curing the simulated time period. The result 
of the income statement shows the net orofit and the change in the 
stockholder's equity for each simulated period. 

| The first item on the income statement is the revenue for the 
sale of oil and natural gas. 


eae @eeeeeee @eeeeee eee eee 2 BF PPO SP SF SF SF SF SF O82 SO Ss FF eg EFS Be Fw FF FFT BWV F SEF FF BFF FF SQM SS SS SS ese ae @s = 


621 TOTREV 


TOTREV + REVNUE(IT) 


Where: TOTREV = the total amount of revenue realized from the sale 
of oil and natural gas by a company 


The total revenue from the sale of oil and natural gas realized by 
a comoany is comouted by adding the revenue from all of its oroducing leases. 


The next item to be discussed are the overating exoenses. 
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657 DELAYR = DELAYR + ACRES/12 


AC = TORR + ROVLEY( 1) 
MOLOEG = TOICEC + Groes7( 11) 
TOTDPR = TOTDPR + DEPREC(IT) 
TOTDPL = TOTDPL + DEPLET(ITI) 

Where: DELAY2 = the total amount of delay rentals vaid by a company 
TOTRYL = the total amount of royalties oaid by a comvany 
TOTOPC = the total overating cost of a company 
TOTDPR = the total deoreciation deduction allowed a company 
TOTDPL = the total desletion deduction allowed a company 
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The total amount for each exvense is found by summing the exvenses 
of all the leases aoe a company owns. The abandonment costs are not shown 
at this time because the method used was given vreviously in the section 
on abandonment costs. Orilling costs are not shown also, for it was 
Gemonstratec oreviously in the discussion of lease develooment costs. 

Net operating income is now computed by summing uv all of the 
operating exvoenses and subtracting that amount from the total revenue. 


TOTOPE = TOTRYL + DELAYR + DRILL + TOTOPC + TOIDPR + TCTDPL 
1 + ABDCOS(T) 
OPNEt = TOTREVY = TOTOrE 


Where: TOTOPa = the total overating exoenses for the company 


DRILL the total amount of the intangible drilling costs for 
the comoany 
OPNET = the net overating income of a company 


A comoany may have other income than the revenue from the sale of 
gas and oil. This income may be either capital gains or dividends received 
from its investments. 


90o DEVREC = DVRATE * INVEST(I) * TIMPAC 


CPGAIN = GAINLT(I) + OTHINC(T) 


Where: INVEST(I) = the amount a company has invested in outside investments 


DVRATE = the amount of the dividend rate per year 

DIVREC = the amount of dividends received for the simulated 
time period 

CPGAIN = the total amount of cavital gains of a company 


The dividends received by a comoany are the return from its 


investments in other comoanies outside the industry. This dividend is 
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computed by multivlying the annual dividend rate, DVRATE, times the amount 
of the investment of the comoany times the fraction of a year that the 
Simulated time veriod reoresents. The dividend rate is a varameter set 
by the model administrator at the beginning of the simulation. 

Caoital gains are the sum of the long term capital gains and the 
regular income realized on the sale of a capital asset. 

The next item on the income statement to be discussed is termed 
as other exoenses. Cther exoenses may be defined as those company 
expenses that are not cirectly related to the overation of a lease. 


INTPAY = (STLOAN(I) * STRATE + BONDS(I) * BDRATE) * TIMPAC 


PelbOsse= XLOSLT Gh) = Crags am) 


Where: INTPAY = the total interest on the debts of the company 


OIRATE = the short term loan interest rate 
BNRATS = the bond interest rate 
CPLOSS = the total capital losses for the comoany 


Interest paid is the interest on all outstanding loans and bonds, 
and is computed by multiplying the appropriate rate, STRATE for short term 
and BDRATE for bonds, times the amount of each that is outstanding. 

Capital losses are similar to capital gains in that they are the 
sum of the long term cavital losses plus the regular losses realized on 
the sale of a capital asset. 

Administrative expenses were computed as a vercent of the total 


assets. 
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ADMIN = ASSSTS(I) * .02 
IF (ORCARY(I).LE.0.0) GO TO 707 
X = ADMIN * ORCARY(I)/ORBASE * 0.1 
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IF (X.GT.ADMEN*O.5) % = ADMIN = O55 
ADMIN = ADMIN -X 


ORCARY(I) = ORCARY(I) + OPRES(T) 
Where: ASSETS(I) = the total assets of a company at the beginning of 
the simulated veriod 


ORCARY(I) = the total amount a company ae invested in overations 
research 

OPRES(I) = the amount of funds invested in overations research 
for this simulated veriod 

ORBAS® = a parameter used as a base for investment in 


operations research 

Administrative exoenses were computed as descrivded in the following 
discussion, for it was felt that these exvenses would probably be more 
of a function of total assets then of any other one item. As the model 
is constructed, administrative expenses may be decreased by investing in 
operations research. The total amount of funds invested in operations 
research is compared with the varameter ORBASE which is set by the model 
administrator at the beginning of the simulation and should not be divulged 
to the companies during the simulation. Investments by a comoany in overa- 
tions research will not effect administrative exvenses for the simulated 
period in which the investment was made, but the investment will affect 
the following veriod. 

The exovloration and development exoenses are exoenses connected 
with the exploration and development of the leases and are generally those 
expenses that are connected with leases which are not capitalized. 

The total of these expenses is found by simole addition. 


OTHEXP = INTPAY + ADMIN + EANDD(I) + OPRES(I) + CPLOSS 
HOLD. = 0.85 * DIVREC 
PRETAX = OPNET + TOTING ~ OTHEXP ~ GAINLT(I) 
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Wheres OTHEAP = the total amount of a comnany's other exvenses 
HOLD1 = the total amount of tax deductable dividends 
PRETAX = the amount of taxible income 


Before federal and state taxes can be computed, the net taxable 
income must be determined. The net long term gain has already been 
calculated. The amount of deductable dividends is comouted by multiplying 
the total amount of dividends received by eighty-five per cent. “his is 
in keeoing with the tax laws that state, in effect, that corporations may 
deduct eighty-five per cent of dividends received from other taxable 
Perestic peoorations.- The net taxable income is calculated by adding 
the net overating income to the Sepa etines income and then subtracting 
the total other exoenses, the deductible dividends, and the net long term 
gain. 

The model assesses the comoanies two classes of taxes: (1) federal 
income tax, and (2) state severance tax. The federal income tax is broken 
into two parts which are the normal federal corporation tax on income, and 
the tax on long term gains. 
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TOTGRO = TOTGRO + GROSS(II) 

STATAX = STAXR * TOTGRO 

FEDTAX = FTAXR * (PRETAX ~ STATAX) 
IF (PRETAX-STATAX.LT 0.0) FEDTAK 0.0 


TAXLTG = .25 * GAINLT(I) 


Where: GROSS(II) = the gross income of a lease 


TOTGRO the total gross income of all vroducing leases of 
a company 

STAXR = the state severance tax rate 

STATAX = the amount of state tax paid by a company 
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FTAAR = the federal income tax rate 
FEDTAX = the amount of federal income tax vaid by a comoany 
TAXLTG = the federal tax on long term cavital gains 


The gross incomes, which are the gross revenues minus the royalties 
oaid, of all leases owned by a aon are added together to vroduce the 
total gross income from the vroduction of oil and gas which is stored in 
the variable, TOTGRO, ‘he total state severance tax vaid by a comoany is 
comouted by multivlying the total gross income times a state tax rate, 
STRATE, that is a parameter set by the mocel administrator. The state 
tax is deducted from the net taxable income before the normal federal 
income tax is computed. If the net taxable income is less than the state 
tax, the federal tax will be equal to zero. The federal tax is calculated 
by multiolying the. federal tax rate, FIAAR, times the result of the net 
taxable income minus the state severance tax. 

The last tax that is charged is the tax on the long term gains. 
Coroorations may not take a deduction of vart of their long term seeiean 
gain as individuals dco, however, they may allow themselves to be taxed 
at the rate of twenty-five per cent times their net long term caoital 
pains.’ The net long term capital gain in this case is the long tern 
capital gains less the long term cavital losses and less the short term 
capital losses. 

The companies vay all taxes, as they occur from cash. 


Se eae @ Se ese ee @eee2 2S SF SF FSB SF SF SFP OS FP SOF SVS 882 SF SF SF SF S&S & & & aaa Seeeeeneeee Se See aegeeee es ewgeee@ees Se see ae a = 





80 


After the taxes are settled, the net income for the veriod and 


the change in stockholder’s equity is comouted. 


NETINC(I) = PRETAX —- STATAX - FEDTAX + TAXLTG + GAINLT(Z) + nCEpn 


931 EQUITY = NETINC(I) - PENLTY - DIVPAY + SELL - BISTOK 


Where: NETINC(I) = the net income of a company 


EQUITY = the chanze in the stockholder's equity for the veriod 
SELL = the amount of money realized from selling stock 
BISTOK = the cost of buying stock 

PENTLY = the penalty vaid for attemoting to beat the model 


Net income for a company is determined by subtracting the taxes 
paid from the net income before taxes. The change in stockholder's equity 
is calculated by subtracting the venalties vaid, the dividends vaid, and 
the stock ourchased from the sum of the net income and the stock sold. 

The balance sheet mainly reflects the distribution of the assets 
and liabilities of a comoany. Most of the calculations have already 
been given, such as many of those for cash and accounts receivable. The 
capitalized tangible and intangible assets are added for all of the leases 
of a company. 


TOTTAN = TOTTAN + TANG(II) 
TOTINT = TOTINT + INTANG(II) 


Where: TOTTAN = the total tangible assets of a company 
TOTINT = the total intangible assets of a company 


After all transactions have been comoleted for the veriod, the 
total assets are comouted by summing all of the individual asset accounts 


of a company. 
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ASSETS(I) = CASH(I) + ACCREC(I) + TOTTAN + TOTINT + INVEST(TZ) 


Where: ASSETS(T) 


t 


the total assets of a company 

Most of the liabilities have been exolained in the previous 
discussion of this section. Retained earnings and the total liabilities 
are calculated in the following manner. 


HOLD2 = RTEARN(T) 
RTEARN(I) = RTEARN(I) + NETINC(I) - PENLTY - DIVPAY + ADD 
740 TOTLIB = ACCPAY(I) + STLOAN(I) + BONDS(I) + PAYCAP(I) + RTEARN(T) 


Where: RTEARN(I) = the retained earnings of a company 


TOTLIB = the total liabilities of a company 

HOLD2 = a temoorary variable reoresenting the retained 
earnings of a comoany from the vrevious veriod 

ADD = the depletion taken on a lease that cannot be matched 


to a capitalized intangible asset of the lease 

The retained earnings amount is found by adding the previous 
retained earnings, the net income for the veriod, and the depletion that 
cannot be matched against the capitalized intangible assets of a lease, 
and subtracting from this sum the venalties and dividends vaid during the 
simulated time period. ‘The total liabilities is the sum of all the 
liability accounts of a company. 

The market quote and the book value of the stockholder's equity 
are computed by the following method. 
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MQUOTE(I) = MQUOTE(I) + (RTEARN(I) ~ HOLD2/RTEARN(I) * MQUOTE(T) 
ere UOlTE(L).b5s),0) MCUGME(T).LT.1.0)*MSUOIE(L) = 1,0 
MQUOTE(I) = MQUOTE(I) ~ MQUOTE(I) * (DIVBAS - DIVDND(I))/DIVBAS 
jk AA CICCo yp gaR 

Piece Orn TiebT 1.0) MOUOTE(T) = 1,70 


742 BOCK = (PAYCAP(I) + RTEARN(I))/SHARES(I) 
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Where: MQUOTE(I) = the price a company's share of stock will sell 


for on the oven market 


DIVDND(I) = the dividend per share that is vaid by a company 
DIVBAS = a base dividend that should be paid by a company 
BCOK = the book value of the stockholder's equity 


The selling orice of a company's stock on the oven market or the 
market quote is thought to be the attractiveness of the company as an 
investment. Peonole will normally like investments that give them a 
return on their money vlus some growth indication in the company. The 
attempt to simulate these two factors has been made in comouting the 
market quote. The first new market quote is determined by the ver cent 
change in the book value of the stockholder's equity that is the 
result of company operations. The final market quote is computed by 
comparing the dividend being paid by the comoany to an average base 
dividend that would be paid by a normal operating comoany. This base 
dividend is a parameter set by the model administrator at the beginning 
of the simulation. 

The book value of the stockholder's equity is calculated by 
dividing the sum of the vaid in capital and the retained earnings by 
the number of the shares of the comoany's stock that are outstanding. 

One of the final calculations to be made by the model is to 
determine if a company may need an emergency loan. 


cast). LE-O.0.) GO 10 703 
EMERGm=) Jbo(CASH(L)) *22.1 
Gish) = 6.0 

703 STLOAN(I) = STLOAN(I) + EMERG 


Where: EME2G = the amount of the emergency loan that a comoany is forced 
to take 


eee eee ewewaeewe en wre weer e weet eww ee ew wee ew ee ewe@e ew ee ee ee ®Fee@e et we ee@weerte ere eee 22272702823" 
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The emergency loan orocedure is set up to keeo a comoany's cash 
account from having a negative balance. If it does go negative during 
the comoany's transactions and remains negative after all transactions 
are completed, the comoany is forced to take an emergency loan to make 
the balance of the account equal to zero. When the emergency loan is 
taken, it is automatically discounted at the rate of ten ver cent and 
then added to the short term loan total. 

The decisions and environment section of the financial Status 
Sheet disolays some of the decisions made by the comoany some of the 
effects of those decisions, and some other information that the comoany 
may desire to know. 

The remarks section is utilized to vrint penalty statements 
which are to inform the company that it has attemoted to violate the 
rules of the simulation, and orovides a space for the growth of the 


Financial Status Sheet if future develonment of the model so warrants. 





CHAPTER V 
INSTRUCTIONS TO CONDUCT THE SIMULATION 


Introduction 

The ouroose of the oil industry model, as stated in the title 
of this thesis, is to provide instructors with an engineering-management 
meaining aid. In order for it to accomplish its vurocose, instructions 
must be written to guide both the student anc the instructor, the 
fede) administrator, in the vrocedures recommendec to conduct the 
simulation. This is the ourvose of this chaoter. 

The first part of the chaoter is entitled The Student's Pamohlet 
and contains a brief descrivtion of the model, the recommended procecures 
to follow during the simulation, a list of decisions to be made, a cescrin- 
tion of the format of the decision cards and their arrangement, and a 
decision work sheet. Each student should be vorovided with a vamohlet 
far enough in advance of the start of the simulation that he may have 
the opoortunity to familiarize himself with its contents. 

The second part of the chapter is entitled The Model Administrator's 
Pamohlet and includes instructions for assigning varameters, suggestions 
for tailoring the model, descrintions of the arrangement and format of 
the Perancters. suggested values for the parameters, the arrangement 
of the final deck, and the recommended procedures to conduct the simulation. 
Each model administrator should have one of these vamohlets to refer to 
during the simulation, however, this thesis snould be his primary source 
for information concerning the model if a problem develoos and the solution 


is not apoarent. 
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The Student's Pamnohlet 


Model Descriotion 
The computor model, Paydirt, is orogramed in Fortran IV 

programming language. It is a simulation of an industry of indevendent 
oil companies that buy and sell oil property leases; revert, develov, or 
abandon the leases they have bought; buy and sell stock of their ow 
comoany; and invest in comoanies outside the industry. As voresently 
orogramed, the number of companies in the industry is limited to five. 

Whenever oil vroverty leases are bought and sold, a bonus is 
normally paid to the leasing varty to obtain the lease. The leasing varty 
will usually lease to the comoany offering the highest bonus. ‘hen bids 
for leases are made, the bids are not to vocurchase the oil vroverty, but 
the bids are made for the right to lease the property. Bids may be for 
any amount above the minimum bid which is disclosed on the lease ceScrinption. 
The program will vick out the highest bid and award the lease to the 
comoany that made that bid. Should two companies make the same bid, and 
that bid is the high bid, the winner of the bid will be picked by random 
Selection. <A bid will not be recognized by the vorogram if the lease is 
not on the list of Pyaeniiics soa sale by the model administrator, or 
if the lease is not offered for sail by another company. 

Companies may sell leases to other companies at any time as long 

as the company owns the lease it is attemoting to sell. The sale between 
two comoanies may be a vorivate deal, or a comoany cesiring to sell a lease 
may make that fact and the acceptable minimum bid known to the other comoanies. 
When a company desires to sell, the number of the lease being sold is ounched 


into the first lease bid card with a minus sign before the number in the 
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orover format. ‘he minimum bic cesiredc is ounched in the corressonding 
field on the second bic card in the vorover format. Comoanies will be 
penalized for attemoting to sell leases that they do not own. 

If a comoany buys a lease and drills a dry hole on it, it is 
recommendec that the company revert the lease as soon as vossible, If 
it is not reverted, the orogram may charge a comoany a delay rental 
charge for the time the lease is hele. Only leases without voroducing 
wells may be reverted, 

Abandonment of a lease should occur only when the lease has been 
devletec to the ooint where it is no longer economical to vroduce oil or 
gas from it. Companies may abandon a lease at any time, however, when a 
lease is abandoned, it removes the lease comoletely from circulation and 
the abandoning company is charged a fee ver well for abandoning. The fee 
simulates the closing in of the wells, removing equioment from the lease, 
and restoring the surface of the lease to some reasonable condition. 
Comopanies are warned not to attemot to abandon-a lease they do not own. 

The first step in develoving an unoroven lease that a comoany has 
acquired is to drill an exploratory well. The exoloratory well will be 
the first well to be drilled on any unproven lease. Once the exoloratory 
well shows that oil has been founc, or the lease acquirec already has 
vrocucing wells on it, develooment wells may be crilled at the rate of 
four wells ver month until a well is a dry hole. All wells drilled ona 
lease, after a dry hole has been crilledc on the lease, will also be dry. 
If duringa simulated time veriod a well on a lease is a dry hole, the 
program will drill no more wells. Also, a dry hole drilled on a vroducing 


lease is an indication that the limit of vroducing wells has been reached. 
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When a producing well has been drilled, the well is assigned a 
well factor which determines the rate of vroduction of the well. A 
maximum rate of oil oroduction is calculated and multivlied times the 
well factor of each well on the lease to determine each well's production 
for the month. This production is summed to find the total voroduction of 
the lease for the month. The vroduction of oil may be limited by an oil 
allowable. A oroducing gas-oil ratio is also calculated and multiplied 
times the oil vroduced to calculate the gas vroduction from the lease. 
A gas allowable may also limit the vroduction of oil from the lease. 
Companies have no control over the production of oil and gas from the 
leases they own. 

Should a lease not produce at the desired rate, the owning comoany 
may do any of the following orocedures to imporve well performance: (1) 
they may fracture the wells on the lease, (2) they may acid treat the 
wells on the lease, (3) they may install oumos on the lease, or (4) they 
may install a secondary recovery system on the lease. ‘ells may be 
fractured and/or acid treated at any time but only the original attemot 
of each treatment may be successful during the life of the well. These 
treatments will not be successful once pvumos have been installed on the 
wells. Pumos must be installed on a lease before secondary recovery can 
be installed, and neither can be installed until the maximum vroduction per 
well is less than the spol cableqal&, | ie a comoany attemots to install vumos 
or secondary recovery orematurely, the vrogram will ignore these attemvts. 

As 911 and gas are vroduced on a lease the equioment necessary for 
‘production grows old and wears out, and the overating and maintenance 


costs increase. These costs are the variable costs of operating the 
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lease, and the companies may reduce these costs by investing in new 
equioment. 

There are many other costs involved in the orogram. Charges are 
made for drilling wells, fracturing and acid treating wells, and instal- 
ling pumps and secondary recovery systems. Administrative costs are 
determined by multiplying a per cent times the total assets of a company. 
These administrative costs may be reduced by investing in overations 
research. Royalties are also vaid: by the comoanies to the land or 
royalty owners. Delay rental charges are made against a comoany if they 
do not drill on the lease within one year after vurchase of the lease. 
As another cost, interest is vaid on all outstanding loans and bonds 
that a company is liable for. All costs that can be cavitalized, are 
capitalized as tangible or intangible assets. The tangible assets are 
reduced by devreciation, and the intangible assets are reduced by deoletion. 

Depreciation and depletion is comouted for each lease and added 
to determine the total amount allowed to a company. Companies may choose 
the method of comouting depreciation: method number one is the straight 
line method, method number two is the double declining balance method, and 
method number three is the sum-of-the-years digits method. When Seem 
depreciation methods, the rule of present tax laws must be followed. 
Comoanies have no choice in the method used in computing depletion. The 
amount of depletion deduction will be the maximum amount allowed. 

At the beginning of the simulation, all comoanies will be given - 
the same amount of assets and liabilities. They will be identically 
meerstributed, i.e. each comoany will have the same amount of cash, the 


Same amount of accounts receivable, the same amount of accounts vayable, 
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the same amount of oaid in cavital, etc. Should a company need more 
capital to cover its costs, it may acquire extra capital by borrowing 

a short term loan, by selling bonds, and by selling comoany stock. If 

a comoany decides that it has too mucn cash on hand, it may invest the 

cash in other domestic comoanies outside the industry and receive dividends 
from the investment, or the comoany may invest in its own stock, thereby 
Saving on the dividends that must be vaid to its stockholders. 

If a comoany runs out of cash during their transactions, the 
company is required to take an emergency loan to comolete their transac- 
Pichs. The emergency loan is automatically discounted at the rate of 
ten ver cent and is then added to the short term loan total. 

A market quote is comouted for each company to indicate how well 
the comoany is doing and to establish a orice for the buying and selling 
of the stock of the comoany. This quote is based uwoon the trend of the 
change in the book value of the stockholder's equity due to overations 
and upon the amount of the dividends oaid by a company. 

The model provides each comoany with three revorts: (1) a lease 
develooment revort, (2) a lease vroduction and cost report, and a-comoany 
financial status sheet. These reports are to vrovide a victure of how the 


comoany fared as a result of the decisions it had oreviously made. 


Recommended Procedures 
The following orocedure in making company decisions is recommended: 
1. Companies should read through the lease descriotions and 


analyze them to determine what the chance might be of finding oil under 


each unoroven lease and to estimate if the asking orice is worth the chance. 
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For oroducing leases, the comoanies should attempt to cetermine if the 
lease will orovide a favorable return on the money required to be invested. 

2. Once the decision has been made as to which leases are to be 
bid uvon and how much is to be bid, comoanies should elect a method of 
deoreciation for tangible assets even though they do not know who will 
be the owner of the lease. 

3. It is advisable for comoanies to request to drill on the 
leases that they have bid uoon. This is assuming that the company has 
the funds to cover the costs of these requests. 

4, Companies should estimate the capital necessary to accomolish 
the transactions they are requesting, and request extra capital if their 
estimates show that they do not have enough. Likewise, if companies | 
believe that they have too much capital on hand, they should invest the 
extra capital. 

5. Comvoanies should determine how much fringe benefits they would 
like to pay their employees in order to Avon a strike. Also, if there 
is no labor ee in force, comoanies should decide the wage rate they 
would like to vay their emoloyees. 

6. The stockholders would like their share of the orofits, so the 
companies should decide how large a dividend they can afford to nay. 

The amount decided uvon should be for a quarter of a year. 

7. if administrative exoenses are too high, companies should 
decide how much money to invest in operations research. 

8. Comoanies should analyze the vroduction from their producing 


leases and attemot to determine if it is desirable to fracture or acid 


treat the wells of a lease, install oumos or secondary recovery on the 


lease, or abandon the lease. 
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9. <A check should be made to determine the trend of the overating 
costs of each lease. If they aovear to be getting too high, a decision 
should be made as to how much money should be invested in new equioment 


for the lease if any. 


Preovaration of the Decision Deck 

The first decision card of the decision deck contains the request 
for the amount of dividends to be paid to the stockholders, the request for 
a short term loan, the request oe long term loan in the form of a bond 
sale, the request to invest in outside domestic comoanies, the request 
to buy or sell it's own stock, the request for a wage rate ver hour to 
be paid to the company employees, the request to invest in operations 
research, and the request for the fringe benefit rate ver hour to be 
Daid to the comoany ate aoeeee 

The second decision card to be orevared is the card containing the 
lease numbers of the leases the comoany is bidding for. The format for 
this and ali of the other decision cards is indicated on the diagram of 
the arrangement of the decision deck on the following oage. The next 
card snould contain the amount bid for each lease ounched in the field 
corresoonding to the field in the second card where the lease number is 
located. 

The decisions to revert or abandon leases are ounched in the fourth 
decision card. The first four fields should contain the lease numbers 
of the leases to be reverted and the last four fields should contain the 
lease numbers of the leases that are to be abandoned. 

| The next two cards of the decision deck are for equioment renewal. 


The first card contains the lease numbers of the leases on which it is 








we 
Company Decision Deck 


lst lease | 2nd lease| 3rd lease] lth lease llst lease | 2nd lease|3rd lease | hth lease 
number number numoer number number number number numoer 
PUMP INSTALIATION Pesuesis SECONDARY PECGW2 RI INSTALLAZION pases rs 

FORVAT (8F10.0) 


Ist lease | 2nd lease} 3rd leasellith lease |lst lease | 2nd lease|3rd lease | lith lease 
number. numder numoer number numoer numoer number numoer 
FRACTURE R=SQUESTS ACID TREATVEN LT Resor 
FORMAT (3F10.90) 


number of |number of} number of{numver of jnumber of [number of [number of | number of 
wells wells wells wells wells we lls wells wells 
NUesh OF We Lise sees 
FORMAT (8F10.0) 


Ist lease [2nd lease | 3rd lease] lith lease 5th lease | 5th lease|7th lease | 8th lease 
number numoer aes nunoer numoer number number number 
LEASE NUBBERS OF LZAS@S ON WHICH WELLS ARS TO BE DRILLED 
FORRAT (Sr 10.0) 


me thod method method method me thed 
numoer number numocr numper numoer 

METHOD BY WHICH DEPRECIATION IS TO BE COUPUEED 
FORMAT (1018) 


Ist lease | 2nd lease | 3rd lease} th lease [Sth lease | 4th lease!7th lease | 38th lease 
numoer number number number number number numoer number 
L=ASE NUMBER ON WHICH DEPRECIATION METHOD IS TO BE CHANGED OR INITIALIZED 
FORMAT (1018 ) 


amount amount amount amount amount amount amount amount 
invested invested invested invested invested invested invested invas ted 
AMOUNT INVESTED IN EQUIPMENT RENEWAL 
FORMAT (8F10.2) 


Ist lease |2nd lease } 3rd lease|hth lease [5th lease |6th lease |7th lease |3th lease 
number number number number number number number number 
_ LEASE NUMBERS OF LEASSS ON WHICH EQUIPMENT IS TO BE RENSWED 
FORMAT (8F10,.2) 
2nd lease | 3rd lease|lith lease [Ist lease |2nd lease [3rd lease {);tn lease 
number numder number number number number numoer 
RaVeRro ION REQUESTS ABANDONMENT REQUESTS 
FORFAT (3F10.2) 
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method 
number - 
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amount 
bid bid loyIUet 
AMOUNTS BID FOR LEASES 
FORMAT (8F10.2) 





t lease |2nd lease | 3rd lease|lith lease [Stn lease |S5th lease |7th lease {3th lease 
number number number numoer numoer number numoer number 
LEASS MULB=ERS OF LEASES FOR WEICH THE COMPANY IS BIDDING 
FORMAT (8F10,2) 


DIVIDEND |SHORT TERM BCND LINVESTASNT!| SHARES TQ} LABOR OPZERATIONS| PRINCE 


PAYMENT LOAN RECUSST REQUEST BUY OR WAGE RATS RSSFARCH BENEFIT 
REQUEST REQUEST SELL REQUEST REQUEST REQUEST 


FORMAT (8F10.2) 
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desired to renew equioment. The next contains the amount of funds a 
comoany desires to invest in new equinment for the leases whose lease 
numbers are ounched in the corresvoonding fields of the first card. 

The election of devreciation methods are ounched in the next 
two cards. The lease numbers for which the election is made is punched 
in the first card, and the method number is punched in the corresvonding 
field of the second card. 

The next two cards should contain the request to drill. Again, 
the first card contains the lease numbers of the leases on which it is 
desired to drill. The second card should contain the number of wells 
the company wishes to drill on the leases whose lease numbers are punched 
in the corresvonding fields of the first card. 

The next card contains the requests - fracture or acic treat 
the wells of a lease, The first four fields of the card should contain 
the lease numbers of the leases on which the wells are to be fractured. 
The last four fields contain the lease numbers of the leases on which 
the wells are to be acid treated. 

The last card of the decision deck contains the decisions to 
install oumms or a secondary recovery system on leases on which it is 
desired to install numos. ‘the last four fields should contain the lease 
numbers of the leases uvon which it is desired to install a secondary 
recovery system. 

The cards of the decision deck will be arranged in the order 
described here, and illustrated on the orevious page. 

On the following page is an example of the work sheet on which 


to make the decisions. These will be vrovided to each of the companies. 
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Parameter List for Company Information 


1. The length of the simulated time veriod in months. pane 
@. The maximum number of leases a company may own. .. « 
3. Penalty for attempting to beat the model. .. se eee 
4h, The selling price of oil per stock tank barrel. .. 
S. The selling price of gas ver thousand cubic feet. 
6. The abandonment costs ver well, 


luethe federal tax rate. ......062e2+eec0ees 
8, The state severance tax rate. «2 ee eee eevee 
Sumericeoond interest rate. «+ «ols « 6 sos esos 1s 6 ex 
age ine short term loan interest rates « « »« « « « © 0 « e 
ll, The royalties paid as a ver cent of gross revenuéee » - 
feaeeihe outside investment dividend rate, ....e.evre-s 
13. The tangible costs of drilling a producing well. .. 
li. The intangible costs of drilling a producing well, .. 
Meee inc costs per well of fracturing. ..+«.s.se-e2rceee 
Meweeine costs per well of acid treating. . « « » « « © » 
iaeeelne costs ver well of installing pumps. ...e. =e 
18. The costs ver well of installing secondary recovery. . 
Semmeeae coSts of drilling a dry hole. .. esse. ome 0 s 
20, The oil production allowance mer well per month. .. 


21. The gas oroduction allowance ver well ver month, .. . 
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On the second vage following, is a list of the varameters that 
are set by the model administrator and that may be vrovided to the 
comoanies at the discretion of the administrator. The values that the 
administrator desires to vrovide the comoanies with will be indicated 


in the column as labeled. 


The Model Administrator's Pamohlet 

Introduction 

The Model Acministrator's Pamohlet is basically a guide for the 
use of the administrator in the execution of the engineering-management 
Simulation, Paydirt. It orovides him with instructions for assigning 
parameters, orocedures to conduct the simulation, methods that may be 
used to tailor the model, and recommendations for parameter values. The 
administrator's main source of information is the thesis, "Paydirt, A 
Simulation of an Industry of Independent Oil Companies for Use as an 


Engineering-Management Aid." 


Assigning Parameters 
Parameters have been defined to be those attribute values which 


2 They need to be assigned only 


do not change during the simulation. 
once, at the beginning of the simulation. If the parameters are changed 
during the simulation, the companies should be told of the change. Also, 
even though the definition states that they should not be cnanged, it 

is acvisible to change the oarameters if it is found that the model is 

not reacting as exnected vossibly because poor values were picked to begin 


with. It may be desired to change some of the varameters to simulate 


certain conditions within the simulation such as having the labor contract 
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terminate, or having Aivecnetae gas and oil allowables. Parameters 

should be chosen with care in order that the model be kept as realistic 

as oossible. “here is a list of varameters, their definitions, and some 
recommended values on the following vage. Further discussion of assigning 
Darameters will be included in the section on tailoring the model, (Initial 


values have been assignec in the starting deck vrovided. 


Instructions for the Execution of the Simulation 

This model is designed to orovide instructors with an additional 
method of instructing their students in the use of engineering and 
financial tools and to help them to analyze data and make decisions based 
upon that analysis. It has been the aim of the author to construct the 
model in order that the administrator (the instructor) will have to do as 
little of the mechanics as vossible. There are, however, a few tasks to 
be performed. 

The administrator will need copies of the initial starting voint 
Financial Status Sheet, a list of leases available for sale, and a sample 
Lease Report to distribute to the students. These can be obtained by 
assigning a veriod length of zero and the number of copies cesired for 
each Peay in the oroper fields in the second card of the starting 
deck provided, and submitting the orogram to be run on the comouter. 

Do not forget to change the veriod length before starting the first 
similated oeriod. | 

Before the first meeting with the students, the administrator 
should have an amole suoply of Student's Pamohlets, with the varameter 
list filled in, and Decision Worksheets. These along with the samole 


outout described above should be distributed at the first meeting. The 
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List of Parameters 





VARIABLE RECOMMENDED DESCRIPTION 
NANE VALUE 

ABDNFT 2000.00 The cost per well of abandoning a lease, 

ACDCOS 2000.00 The cost of acid treating one well. 

ACDFAC 0.15 The chance that an acid treatment will not effect 
a well's performance. 

ACFLOW 1.30 The factor to increase production for a successful 
acid treatment of a well. 

BDRATE O5@5 The rate of interest on bonds. 

BENSAS 0.20 The basic benefit rate. 

BENFIT (start).20 The factor to control the option of having 
companies vary fringe >enefits. 

CASHFT 0.50 The portion of a collection or vayment that will 
affect the cash account. 

DECLN 0.90 The factor to change the rate of decline after 
a well has be treated. 

DIVBAS Tcl The basic quarterly dividend rate, 

DRINTG 12000 .00 The amount of drilling cost assigned as an 
intangible asset, 

DRTANG 7000.00 The amount of drilling cost assigned as a 
tangible asset. 

DRYHCS 13000.C0 The cost of drilling a dry hole. 

DVRATS 0.02 The dividends received as a percent of the total 
outside investment. 

EQCSFT 0.40 The fraction of the cost of a voroducing lease 
that is assigned as equipment cost, | 

FINE 5000.00 The penalty fine attemoting to break the rules 

: of the simulation. 
FRCCOS 4000.00 The cost to fracture one well. 
FRCFAC ONS) The chance that a fracture job will not affect 


well oroducvion. 





a 
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) 
>} 


FTAAR 


GASaLii 


GPRICE 


WAXOWN 


NPLAY 


OILALY 


OPRICE 


ORBASE 


PAYBAS 


Pel LOW 


PaiPCOS 


QUOTFT 


RIABOR 
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S2zCCOS 
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STKFAC 
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0.18 


8000.00 


0.16 


20 


1500.00 


3200 


1,00 ,000..00 


3.00 


3.00 


8000.00 
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3-00 


0.125 


10,000.00 


11.00 


0,02 


Oalsio 
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Thesfactor to ancrease. sroducisoneeer 
successful fracturing of a well. 


The federal income tax rate, 


The allowable production of gas from a well 
per month in NSCF, 


The price of natural gas ver MSCF, 


The maximum numoer of leases a conpany may 
own at any one time (limited to twenty). 


The number of companies taking part in the 
Simulation (limited to five). 


Tne allovable production of oil from a well 
per month in barrels, 


The selling price of oil ver barrel. 


The base amount to be invested in onerations 
research. 


The base pay rate to be paid to company employees. 


The factor to increase production because pumps 
were installed on the lease. 


The cost of installing a jum» on one well. 


The factor to vary the sensitivity of the market 
quote. 


The factor to control the ovtion to allow 
comoanies to vary their nay rates for emoloyees, 


The royalties naid as a per cent of gross revenues. 


The cost of installing a secondary recovery system 
per well. 


The factor to increase nroduction due to the 
installation of a secondary recovery systen. 


The state severance tax rate. 


The factor to vary the sensitivity of a strike. 





TERMS R 


VARCCS 


0.12 


12,00 


12,00 


0.15 


100 


The short term loan interest rate. 


The period of time in months that all accounts 
payable will be paid if no more are acquired, 


The period of time in months that all accounts 
receivable will be collected if no more are 
acquired, 


The base. variable cost factor to oroduce one 
barrelvor ‘ok; 
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students should be given sufficient time to become familiar with the 
material and have a chance to ciscuss it before they are required to 
start making decisions. 
When it is time to start the simulation with the first time period 
run, the administrator has the choice of having the companies key ounch 
their own decision decks, or of having the companies submit their Decision 
Worksheets to him for him or his assistant to key ounch. If the administrator's 
choice is the first one, he should be varticularily careful that the cards 
have been punched in the correct format. ‘When assembling the deck for 
submission, care should be taken to organize it in the correct order. 
There is a diagram of the correct order for the arrangement of the deck 
on the following vage. Also, the correct control cards for the comoutor 
system should be used to vroverly compile and run a Fortran IV source 
deck. Binary decks may be obtained to avoid the compilation time that 
is necessary with the source deck. 
Administrators are advised to start the simulation with a time 
period length of one month for the first two or three runs. After these 
first runs, it is recommended that the veriod lengths be increased to 
quarters and then to half years and then to years. The vace and amount 
of the increases will depend upon the students adaptation to the simula- 
tion. When dividing the students into comoanies, the administrator should 
be careful to insure that the special talent, i.e. the better engineers 
or the better financial managers, is soread among the companies. Also, 
it is advisable to start the simulation with a labor contract in force 
(RLABOR assigned the same value as PAYBAS and BENFIT assigned the same 


value as BENBAS). The result will be that the comoanies will not suffer 





102 


Company Decision Deck 


~ 


(First Decision Card, Company One) 


Data Carry-Over Deck 


SONTRY 


PAYDInT Control Program and Subroutine 


$IBSYS 


A Diagram cf the Final Deck Arrangement for PAYDIRT. 
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a strike in the early months of the simulation at the time when they are 
getting acquainted with the model. 

To encourage varticipation and interest in the simulation, the 
administrator should make the simulation a vart of the student's prade 
for the course it is Seimei for, and also, set a standard for spiel 
ing a winner at the end of the simulation. this standard may be a 
combination of factors from the Financial Status Sheet such as the 
market quote, the book value of the stockholder's equity, the debt / 
equity ratio, etc., and should be set at the beginning of the simulation. 

There are no apparent end effects pened with the simulation, 
however, this may not be true and can only be voroven true with exverience. 
To avoid any end effects that might occur, it is recommended that two or 
more Gecision decks be run simultaneously. ‘This can be accomolished by 
changing the value on the variable NDECKS to the number of the decision 
decks to be run. NDECKS is the third bit of data on the first card of 
the carryover deck. The decision decks should be arranged back to back 
at the end of the comolete deck. Another method to use to prevent end 
effects is to run the same decision deck through two simultaneous time 
periods. This may be accomolished by duplicating the decision deck, Dut- 
ting the duplicate behind the original deck, and changing NDECKS to two. 
With either of these methods, any radical decisions by a comoany would 


orobably do that company more harm than good. 


Tailoring the Model 


~ 


There are some margins within which the administrator can tailor 





the model to fit the sovecific result that he may want from that simulation. 


There are three methods by which the tailoring of the model can be achieved: 
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(1) the values assigned to the varameters, (2) the values assigned to 
the data deck, and (3) the cancellation of ne companies right to make 
certain decisions. 

There are a number of variations that can be obtained by setting 
certain values for the Senanecens at the beginning of the simulation or 
during the simulation. If the administrator does not agree with the 
penalty aspect of the model, he may set this varameter equal to zero and 
completely eliminate it. The message concerning the attemoted violation 
will still be vrinted on the company's Rinenet al Status Sheet. If the 
administrator is not in accord with the strike feature of the model, he 
may set the strike sensitivity factor equal to zero and eliminate it. 

The degree of sensitivity of the strike feature can be altered by 

varying the strike sensitivity factor between zero and one. To allow 

the compenies to vary employee wages and fringe benefits, the varameters 
RLABOR and BENFIT are set equal to zero. ‘his permits the companies to 
vary wages within ten ver cent of the base wage, and fringe benefit rates 
from zero to twice the basic benefit rate. This condition has been termed 
@s no labor contract in force, 

The changes to be made during the simulation include the changing 
of the price of oil and gas to simulate seasonal variations, the variation 
of interest rates which would change the future value of money, and the 
variation of tax rates to simulate changes in government volicy. As 
exverience with the model is obtained, new ideas for changes will be 
apparent. : 

The model may be tailored by arranging the values in the Wate. 
starting deck. If it is desired that the competition for leases be eliminated, 


certain leases may be picked and the same lease may be assigned to all of 
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the comoanies but under different numbers. ‘If it is desired that the 
chance of drilling a dry hole be eliminated, the geological factors 
may be made equal to one and every lease will be a vroducing lease. 

che disallowing of decisions is another method of tailoring the 
model. If the administrator decides to stress engineering, he may do 
So by not allowing financial decisions to be made. Even the bidding 
may be eliminated by assigning leases to companies. . The control of 
the administrator would be to check the decision deck before submitting 


it to insure that the decisions that are disallowed are not read in. 





CHAPTER VI 
CONCLUSION aND RBCOrMENDATIONS 


Saoinsien 

Paydirt is a model constructed to simulate independent oil 
companies and their overations. It is, at best, a crude simulation, 
for not only were the activities of the company itself modeled, but it 
was necessary to attemot to model oil reservoirs that have an inherent 
wealth of uncertainty. Even though it is described as being cruce, it 
is overable as a simulation and does reflect many of the characteristics 
of the events associated with oil companies. As described in the orevious 
chaoter, the model is flexible enough to allow general or restricted 


overations of oil comvanies to be simulated, 


Recommendations 

At the beginning of this thesis, it was stated that the construction 
of any entity required some necessary groundwork or foundation. Now that 
the model is constructed, it is felt that it may be thought of as a 
foundation for future develooment of the simulation of the oil industry. 
There may never be a final model. As comoutor technology is increased and 
more knowledge ot the simulation of events is obtained, the simulation of 
the industry will continually be imoroved if proverly pursued. The future 
models may not only be used for training, but they may also be used to - 
study the effects that changes in environment will have on the oil 


industry. Examples of these environmental changes might be the change 
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in ovolicy of imoortation of oil and natural gas, the increased use of 
liquified natural gas, the advent of new tyves of automobile engines, 
the arrival of suversonic jet one and many others. These events may 
seem farfetched at this voint, but they will affect the oroduction of oil 
from the reservoir through the demand for oetroleum oroducts. The next 
steos to be taken are recommended as follows: 
1. A further study should be made of the costs involved in the 
exploration and develooment of oil leases and of the manner in 
which these costs are allocated to revenues. 
2. An attemot is Peedea to provide a better model of different 
tyoves of oil and gas reservoirs including comdatible reservoir 
characteristics. 
3. Further work is required on the model, Paydirt, in order 
that it could include simulations of transoortation, refining, 
and the marketing asvects of the industry. 
Although it is felt that Paydirt is a complete working model, 
there is much to be done before it will be comorehensive enough to achieve 


its full votential. 
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Lease Number _@ Acreage _ 1300 
Romero's Ranch Lease 


Area Descrivtion: ‘this land is rocky and sandy and suovorts very little 
foliage growth. The area receives svarce annual rainfall and consequently 
is not used as pasture by the owner. The lease is the southwestern 
section of a 3500 acre ranch. ; 
Geological Data: No geological studies or analysis have been made of 
the lease. Area magnetic surveys have indicated that a favorable 
sedimentary basin exists in this area, but no favorable structures can 
be detected from the outcronvdings. 


Drilling distory: There is no record of any drilling having been verformed 
on this lease. A vortion of a ranch about 25 miles west of the lease was 
develoved about a year and a half ago. The wells were drilled to a 

deoth of anvoroximately 4090 feet and are vresentiy averaging about thirty 
barrels a day with ten ver cent water. 


Terms: Mr. Romero will acceot no less than seventy-seven cents ver acre as 
a bonus for the leasing rights. The Lessee must begin drilling within one 
year or be liable for a delay rental vayment of one dollar ver acre ver year. 
The lease will be automatically terminated at the end of five years or when 
it is mutually agreed that voroduction of oil and/or gas is not, or is no 
longer economical. 


Lease Number _3 Acreage _1995 
Barclay Farms Lease 


Area Descrivtion: The land in the area of the lease is rich rolling farm 
land used to grow soy beans and corn. The surface elevation is about 
1000 feet above sea level, and the area is dotted with lakes and vonds. 


Geological Data: There is no geological data available to analyze. 

Seismic readings were taken on a farm about ten miles northeast of this 
lease and indicated that an unconformity existed at a depth of anoroximately 
3500 feet. Also there was a2 possible vorous layer at a denth of about 

4600 feet. 


Drilling History: There has been no drilling on this lease. A well was 
drilled on the lease mentioned above to a denth of about 5000 feet, and 
was considered a duster. 


Terms: The owner will accept the highest bid offered, but it must be at 
least one dollar ver acre. The Lessee will also be liable for unnecessary 
damage to crovs or livestock. The Lessee must begin drilling within one 
year or he must vay the lessor one dollar ver acre cer year until drilling 
does commence. “he lease will be terminated at the enc of five years 
automatically if drilling has not begun or when it is mutually agreed that 
oroduction of oil and/or gas is not, or is no longer economical. 





Lease Number \ 


Past Lease Production Time: 3 months 


Producing Formation: Queen (sand) 
Average Producing Depth: BONO iat. 


Oil Wells; 

Currently being produced: 
Flowing: “Ge 
Pumping: QO. 
Gas Lift: 0 

Wells that have produced oil: 

» Shut in: 0 
Plugged and abandoned: 0. 
Converted to gas wells: 0 


Gas ‘sells; 


producing: 0. 

Shut in; 0. 
Dry and abandoned: O. 
Total wells drilled; 9. 
Production to date: 

Oil Production: 3 7500. 

Water Production: 750. 


Gas rroduction: 
Gas produced from oil: 2835, (SCF) 
Dry Gas; , 
Total gas produced: 2835. 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 

Oil A.pP.I. gravity; 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 


Acreage 1650 


200) 
2300. 
2300. 
: 38° 
07 


1235% 
0 


Undepreciated tangible assets on lease: not available at this time. 


Estimated Reserves: 


800,000, 


Minimum Bid: $1,500,000, 
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Lease Number 5 Acreage 1112 


Past Lease Production Time: 9. lonths 


Producing Formation: Montoya 
Average Producing Depth: (OCC satnte 
Oil Wells: ; 
Currently being produced; 
Flowing: ee 
Pumping: Oh 
Gas Lift: Oe 
Wells that have produced oil: 
| Shut in: 


Plugged and abandoned: OF 
Converted to gas wells: Ge 


Gas Wells: 


FrRocucing : i on = 
Shut in: , ct Bas 
Dry and abandoned: | oe 
Total wells drilled: 4) ls 
_Production to date: 
Oil Production: ; 103,000. 
Water Production: . O- 
Gas rroduction: | 
Gas produced from oil: 73,170.- (NSCF) 
Dry Gas: Oe . 
Total gas produced: : VS TAer 
Reservoir Data: fia : 
Initial reservoir pressure: 3650. 
Present estimated-reservoir pressure; 3595. 
Saturation pressure: 3600. 
Oil A.P.I. gravity: > > 40.35" 
Sulphur percentage: | ° 3h 
Royalty Interest: 
Owner: 12.5% 
Other: 0.0 


Undepreciated tangible assets on lease; Not available at this time. 
Estimated Reserves: 500,000. 


Minimum Bid: #945 ,000. 





Lease Number 6 Acreage 2152 
Bell's Farm Lease 


Area Descrivtion: This lease is a tract of fairly level farm land that 
averages about 500 feet above sea level. It is located in a large valley 
surrounded by low mountain ridges. There is a moderate size stream that 
winds down the middle of the valley and cuts across the southwest section 
of the lease. the roads to and in the area are excellent. 


Geological Data: No surveys have been done on this lease to date. Seismic 
readings were taken on an adjacent lease in January of 1966 which indicated 
that a dome structure exists under that lease. This has voroven to be correct 
by several exoloratory wells that have been drilled on that lease. From the 
meormation received it is believed that the structure extends under this 
lease also. The vrocucing formation aovears to be the Seven Rivers (sand). 


Drilling History: There is no history of drilling on this lease that can 
be found. The wells on the adjacent lease are vroducing from about 2500 
feet and are flowing enough to easily make their allowable. 


Terms: Mr. Bell will consider no less than five dollars an acre as a bonus 
for leasing. Drilling is to commence within one year or the lessor will vay 
the lessee the amount of one dollar ver acre ver year as a delay rental 
payment. The lease will be terminated at the end of five years or when it 
is mutually agreed that production of oil and/or gas is not, or is no 

longer economical. 


> a we ae oe Se ee oe ee ee ee ee eee eee eee eee ee eee ee eee eee ee ee ee ee eee ee ee eee ee ee ee ee ee eee ee ee ee ee ee 


Lease Number _7 | Acreage _1222 
Hillsdale-Valley Farm Lease 


Area Descrivtion: This area, inclucing the lease, is slightly rolling farm 
land used vrimarily to grow corn and wheat. There is olenty o7 water in the 
area and the roads to and in the area are excellent. 


Geological Data: None. 


Drilling History: There is no record of any drilling having been verformed 
on this lease. 


Terms: Sfecause it is excellent farming land, the owner will consider no 
less than one dollar an acre for a bonus to lease. Drilling will commence 
within one year or the lessee will oay the lessor a delay rental vayment 
of one dollar ver year ver acre. ‘the lease will terminate at the end of 
five years or when it is mutually agreed that production of oil and/or gas 
is not, or is no longer economical. 
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Lease Number _ 8 Acreage _5000 


Renold's Ranch Lease 


Area Descriotion: The area is rolling oven range in western Kansas, used 
for cattle grazing. Exceot for a few voncs on the ranch, there is no 
available source of water. xoads into the area are gravel roads in good 
condition most of the year. 


Geological Data: There are very limited rock outcroppings visible on the 
lease. Aerial vhotograohy shows that there is a little evidence of the 
oresence of faults in the northeastern section and the vossible beginning 
em@eon anticline structure in the southern oortion. A recent insdection 
revealed two possible oil seeds in the area of the faults. 


Drilling Fistory: No drilling has been dohe on this lease that can be 
determined. A wildcat well was drilled on a lease about thirty miles west 
of this lease to a devth of about 4000 feet. It was considered a duster. 


Terms: The owner will consider bids of twenty cents an acre or better as 
a bonus for the lease. Drilling is to commence within one year or a delay 
rental must be vaid by the lessee to the lessor of one dollar cer acre ver 
year. ihe lease will be terminated at the end of five years or wnen it is 
mutually agreed that oroduction of oil and/or gas is not, or is no longer 
economical. 


Lease Number __ 9 Acreage _1311 
Blue Marsh Leash 


Area Descrivtion: The area is generally flat and marshy land with an 
elevation right at sea level. No farming is done in this area because 

of the marshy nature of tne land. There are a few roads but transportation 
1s mainly by boat. 


Geological Data: There is a scarcity of geological information for this 
area, however, the region is becoming famous for its many salt domes. 

An aerial magnetic survey of this area was made in 1962 which indicated that 
a dome may exist in the vicinity of the lease. Seismic readings have not 
Meen taken to confirm or deny this indication. 


Drilling History: There is no evidence of past drilling on this or 
adjacent leases. 


Terms: The owners will consider no less than one dollar ver acre bonus 
mer this lease and will lease to the highest bidder. Drilling is to com- 
mence within one year or a delay rentai of one dollar oer acre ver year 
must be paid to the lessor by the lessee. The lease will be terminated 
at the end of five years or when it is mutually agreed that voroduction of 
oil and/or gas is not, or is no longer economical. 
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lease Number 10 Acreage 760 


Past Lease Production Time: 7 Years 


Producing Formation: Jeleware 
Average Producing Depth: 1960 ft. 


Oil Wells: 

Currently being produced: 
Flowing: 
Pumping: 
Gas Lift: 

Wells that have produced oil: 

| Shut in: 
Plugged and abandoned: 
Converted to gas wells: 


e 


OND On Oo 


Gas wells: ‘ 
Produc ing: | | : O. 


Shut in: ; : Oe 
Dry and abandoned: . Sa ae 


Total wells drilled: 5 


. Production to date: | 
| 7-5500.. 


Oil Production: > i 
Water Production: oak 0. 
Gas Production: ae : 
Gas produced from oil: B30. (SCF) 
Dry Gas; 8 eee 
Total gas produced: 830. 
Reservoir Data; | 
Initial reservoir pressure: | 1500. 
Present estimated-reservoir pressure: 
_ Saturation pressure: 2 300. 
Oil A.P.1. gravity: ; 29° 
Sulphur percentage: | i 0. 
Royalty Interest: _— > 
Owner: 12.5% 
Other: . | 0.0 
Undepreciated tangible assets on lease; none 
Estimated Reserves: | 10,900. 


Winimun Bid: | #5, 000. 





Lease Number lil 


Undepreciated tangible assets on lease: 


Estimated Reserves: 


Minimum Bid: 


118 


Acreage 2000 


Past Lease Production Time: 1 month 

Producing Formation: Yates 

Average Producing Depth: TOO Miu. 

Oil Wells; 

Currently being produced: 
Flowing: 1. 12 BPD 
Pumping: 0. 
Gas Lift: O. 

Wells that have produced oil: 
Shut ins 0. 
Plugged and abandoned: 0. 
Converted to gas wells: 0. 

Gas ‘sells: 

Producing: 0. 

Shut in: 0. 

Dry and abandoned: Oo 

Total wells drilled: i. 

Production to date: 

Oil Production: 400. 

Water Production: Oo 

Gas rroduction: os 
Gas produced from oils 122, (MSCF) 
Dry Gas: O. 

Total gas produced: 122, 

Reservoir Data: 
Initial reservoir pressure: 2119. 
Present estimated-reservoir pressure; 210. 
Saturation pressure: 2000. 

Oil A.P.I. gravity: — 

Sulphur percentage: 1.3 

Royalty Interest: 

Siier: 12.5% 

Other: 0 


not available 
50,000. 


$100,000, 





Lease Number le Acreage 3100 


Past Lease Production Time: ° Months 
Producing Formation: Blinebry (Yeso-Lime) 
Average Producing Depth: 5575 ft. | 
Oil Wells: 
Currently being produced: 
Flowing: Pall 
Pumping: Oo: 
Gas Lift: 0; 
Wells that have produced oil: 
Shut ins; BIA 
Plugged and abandoned: Os 
Converted to gas wells: O. 
Gas Wells: 
Producing: Oe 
Shut in: ; OF | 
Dry and abandoned: 0. 
Total wells drilled: em ele 
Production to date; | 
Oil Production: | 160,500. 
Water Production: 15,009. 
Gas rroduction: | . 
Gas produced from oii: 535770. (MSCF ) 
Dry Gas: 
Total gas produced: | SSL (Oe 
Reservoir Data; 
Initial reservoir pressure: 3 2005. Psi 
Present estimated-reservoir pressure: 1910. 
Saturation pressure: | 3000. 
Oil A.P.I. gravity: ee is 
Sulphur percentage: | 05 
Royalty Interest: 
Owner: | ioe, 


Other. 0.0 
Undepreciated tangible assets on lease: Not available at this time. 
Estimated Reserves: 1,450,000. 


Minimum Bid: | $2,000,000. 
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Lease Number _1 Acreage _ 3000 
"Wastelands" Lease 


Area Descrintion: The area in which this lease is situated is very hilly 
and rocky. ‘there is very little rainfall and as a result there is very 
little water and almost no vegetation. The land is not used for anything. 


Geological Data: Other tnan aerial maovings of the area, no other recent 
studies have been made of the area. There are stories that this lease was 
Get led at one time during tne 1920*s, but the records or the location of 
the wells cannot be found. ‘the aerial maos apvear to indicate that several 
dome structures may exist under the lease. Studies of this area suggest 
that the Yates-Seven Rivers formation may occur this far north. 


Drilling History: From the information that can be gathered in the area, 
the original wells were drilled about 1926 to a deoth of about 2000 feet 
by the cable tool metnod. The wells tnat were drilled were fairly produc- 
Mme, DUL due to the high cost of transoorting the 011, inefficient oroduc- 
tion methods and the Great Vepression of the thirties, the company 
apoarently went bankruot and abandoned the field. 


Terms: Because it is fairly certain that oil does exist on this lease, the 
new owner of this lease will not accent less than two dollars cer acre for 
the leasing rights. Drilling must be started within one year or a delay 
rental vayment of one dollar ver acre ver year will be paid to the lessor 
by the lessee. The lease will terminate at the end of five years or when 
it is mutually agreed that vroduction of oil and/or gas is not, or is no 
longer economical. 


Lease Number _ jj}; Acreage _ 993 
West Windy County Lease 


Area Descrivotion: ‘This lease is an old run down farm owned by an old man 
who now resides in Kansas City. Most of the farm is situated on the side 
of a long sloving hill. About fifty ver cent of the area is wooded. A 
lake on the oroverty orovides olenty of water and the roads to the lease 
ame sin good condition. 


Geological Data: None. 
Drilling ‘History: None. 


Terms: Tne owner will consider no bids less than one dollar ver acre. 
Lessee will drill within one year or pay the lessor one dollar ver acre 

per year until drilling does commence or the lease is termineted. ‘the 
lease will terminate at the end of five years or when it is mutually agreed 
that oroduction of oil and/or gas is not, or is no longer economical. 
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Lease Number _15 Acreage 4052 
Richard curtron Estate 


Area Descrintion: ‘The terrain in this area is mountainous and very rocky 
with lush vegetation. The estate is isolated by mountain ranges on all 
Sides, but roads through several vasses leading to the lease are fair and 
vassable the year rounc. 


Geological Data: lagnetic surveys, aerial nhotogranhs and ground manos 
have been made of this area recently. There are numerous faults aoparent 
from the visible rock outcroovvings with several snowing the signs of the 
kaek O11 sands. 


Drilling History: Fifteen years ago a well was drilled on the southern 
portion of this lease to a deoth of 3100 feet. A show of oil was found, 
but it was not considered economical to oroduce and the well was aoandonedc. 
No other drilling has been done in the area. 


Terms: The owner will lease the whole estate to the highest bidder for 

at least ten thousand dollars or more. Drilling will commence before the 
end of one year or the lessee will vay a delay rental oayment of one dollar 
per acre ver year to the lessor. the lease will be terminated at the end 
Saeiive years if no drilling has been done or if 1t is mutually agreed 

that oroduction of oil and/or gas is not, or is no longer economical. 


Lease Number _ 16 Acreage _2500 


Lake Tract Lease 

Area Descriotion: The area of this lease is relatively flat and is about 
700 feet above sea level. It is bordered on the west by rolling hills that 
level off into a olain that is aooroximately 1500 feet in elevation. The 
area is vart of a state wildlife reserve. 


Geological Data: Geolosical surveys are now in orogress and evidence so 
far indicates that there is a good possibility that several ootential oil 
traos may exist on the lease. This evidence was derived from an analysis 
that has just deen completed on some vartially burried outcropoings in the 
wesvern secvion of tne lease. 


Drilling History: wo drilling has been done on this lease thus far. The 
land is owmed by the state and is comoletely undeveloved. 


Terms: The state will allow only the minimum amount of disturbance of 

the natural habitat of the olant and wildlife. The minimum bid the state 
will consider will ve five dollars an acre. Drilling will commence within 
one year or the lessee will nay the state a delay rental of one dollar ver 
acre oer year. .he lease trill be terminated at the end of five years or 
when it is mutually agreed that vroduction of oil andor gas is not, or is 
no longer economical. 





Lease Number 17 


Acreage 1,100 


Past Lease Production Time: 9 months 


Producing Formation: Grayourg-Queen 
Average Producing Depth: 2o500 cic. 
Oil Wells: 
Currently being produced: 
Flowing: dite 
Pumping: O. 
Gas Lift: O. 
Wells that have produced oil: 
Shut in: O. 
Plugged and abandoned: 0. 


Converted to gas wells: 0. 


Gas Wells: 


Producing: O. 

Shut in: 0. 
Dry and abandoned: Oe 
Total wells drilled: oe 
Production to date: as 

a croduction: 120,000. 

Water Production: 5,000. 


Gas rroduction: 


Gas produced from oil: 5,199. (MSCF) 
Dry Gas: 0. 
Total gas produced: 551199. 

Reservoir Data; 
Initial reservoir pressure: nIOze 
Present estimated-reservoir pressure: 1780. 
Saturation pressure: 2000. 

Oil A.P.1. gravity: 2° 

Sulphur percentage: 05 

Royalty Interest: | 
Owner: 

Other: 12.5% 


Undepreciated tangible assets on lease: 71,200,000. (estimated) 


Estimated Reserves: 


Vinimuwa Bid: 


1,500,000. 


2,000,000. 


t22 
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Lease Number 18 Acreage _2025 
Downs Estate Lease 


Area Descriotion: Rolling, slightly wooded countryside characterizes the 
entire 2025 acres offered for lease by the beneficieries of tne Downs 
Estate. The lease's elevation is about 1500 feet above sea level and ther 
are no commercial or residential develooments within ten miles. 


Geological Data: ‘There is no geological data available. 


Drilling History: No wells have been drilled on this land to date. The 
Petro Wildcat Company has begun drilling on a farm two miles east of the 
estate on the basis of some favorable seismic readings. these readings 
m@emeacre that the vossioility of a’ oinchout exXists on thal lease, and from 
the lay of the land, the vinchout may extend under vart or all of the Uows 
Estate. : 


Terms: The owners of the Estate have turned down an offer of two dollars 
ma@eacre for a leasing bonus and would consider an offer of five dollars or 
more an acre. Drilling is to commence within one year or the lessee will 
be liable to the lessor for a delay rental vayment of one dollar ver year 
oer acre. the lease will terminate at the end of five years is no drilling 
has been done or in the event that it is mutually agreed that voroduction 

of oil and/or gas is not, or is no longer economical. 


Lease Number _19 Acreage 1561 
Henry A. Jackson Lease 


Area Descriotion: This lease is located in the southeastern voortion of 
Kansas where the terrain is rather hilly. There are some wooded spots on 
the lease and the rest is grass land used for grazing horses. 


Geological Data: There is no detailed geological data oresently available 
for this lease. There is little surface evidence that there are subsurface 
structures uncer the lease that may contain gas or oil. However, fron 
general geological knowledge of the area, the Bartlesville Sand formation 
should lie under this lease at an apvroximate denth of 2000 feev. 


Drilling History: There is no record of any drilling that has been done 
on this lease or on adjacent leases. 


Terms: Mr. Jackson will accept no less than two dollars an acre as a bonus 
for the leasing rights. Drilling must begin within one year or a delay 
rental of one dollar ver acre ver year must be oaid to the lessor. the 
lease will be terminated at the end of five years if no drilling has been 
accomolished or at the time when it is mutually agreed that oroduction 


of oil and/or gas is not, or is no longer economical. 





Lease Number 20 


Past Lease Production Time: 9 months 


Producing Formation: licKee (Simpson) 
Average Producing Depth: 9000. ft. 
Oil Wells: 
Currently veing produced: 
Flowing: 17. 
Pumping: OF 
Gas Lift: 0. 
Wells that have produced oil: 
Shut in: QO. 


Plugged and abandoned: O. 
Converted to gas wells: 0. 


Gas Wells: 


Broducing : QO. 
Shut in: a 
Dry and abandoned: oO; 
Total wells drilled: Tye 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oils 
Dry Gas: 
Total gas produced: 


Reservoir Data; 
ingtial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 

om A.P.l. gravity: a 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves; 


vinimum Bid: 


12h 


Acreage 3555 


210,000. 


66,517. (iiSCF) 
66,617. 


Baio. 
2100. 
3360. 
iO 
0. 


12.5% 

0.0 
$1,080,000. (estimate) 
2,000,000. 


$1,800,000. 





“ 


Lease Number 21 Acreage 360h 


Past Lease Production Time: 1 month 


Producing Formation: Silurian 
Average Producing Depth: 6000, ft. 


Oil Wells: 
Currently being produced: 


Flowing: 1. 
Pumping: Oe , 
Gas Lift: ‘ O 
Wells that have produced oil: 
Shut ins : Oo; 


Plugged and abandoned: QO. 
Converted to gas wells: 0. 


Gas Wells: 


Producing: 0. 
Shut in ° ie 0. 
Dry and abandoned: 0. 
Total wells drilled: . a 
Production to date: 
Oil Production: 2 >» 500. 
Water Production: TOOK 
Gas Production: : Ok. (MSCF ) 
Gas produced from oil: le : 
Dry Gas: 
Total gas produced; h. 
Reservoir Data: | 
Initial reservoir pressure: 2930. 
Present estimated-reservoir pressure: 29306 
Saturation pressure: 3000. 
Oil A.P.I. gravity: 1) AES 
Sulphur percentage: 69 
Royalty Interest: 
Stine: 12.54 
Other: 0.0 


Undepreciated tangible assets on lease: not available. 
Estimated Reserves: 1,500,000. 


Minimum Bid: $1,000,000. 
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Lease Number 22 Acreage _750 


- 


John Blackman Lease 


Area Description: This lease is part of a large farm that borders on the 
Kansas River, and is a strio of flat land that lies between the river and 
some Sloding hill country. The land is used to grow wheat and sorghum grains. 


Geological Data: The owner has had seismic studies made of the lease. The 
results indicate that a orosvective oorous formation exists at about 3800 
feet to about 4200 feet which is thought to be the Mississinnian formation. 
Another formation beginning at approximately 7500 feet also looks very 
favorable. 


Drilling History: There is no drilling history for this lease. About 
three miles up the river, development has just been completed this year on 
the Jack Whitelinger Lease. Ten wells were comoleted to an average depth 
of about 4000 feet, and the wells are now flowing roughly 100 barrels ver 
day. there has been no other drilling activity in the area. 


Terms: The owner will consider bids of not less than five dollars an 
acre plus two thousand dollars which is the cost of the seismic study. 
Lessee must begin to drill within one year or pay lessor a delay rental 
payment of one dollar per acre ver year until drilling commences or the 
lease is terminated. The lease is terminated at the end of five years or 
in the event that it is mutually agreed that production of oil and/or 

gas is not, or is no longer economical. 


Lease Numoer _ 23 Acreage _1675 


Black Swamo Lease 


Area Description: This lease is entirely swamo land located near the 
Mississippi river in northern Louisiana. There are very few roads to 
the area and it is inhabited only by wildlife. 


Geological Data: There is no geological data available for this lease. 
Most of the time the swamo is covered with a black oily film from which 
the swamo gets its name. The oily film could result from oil sweeps or 
1t may be from other sources. 


Drilling History: None. 


Terms: The owner «rill lease this land for not less than fifty cents an 
acre. Drilling must start within one year or a delay rental vayment of 
one dollar per acre per year will be vaid to the lessor. The lease will 
terminate at the end of five years if no drilling has ocegun or when it is 
mutually agreed that production of oil and/or gas is not, or is no longer 
economical. 
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Lease Number 2h Acreage _1000 
Suburban Number ] Lease 


Area Descriotion: The area of the lease is a hilly wooded area on which 
exists a newly develoned residential section. The lease is owned by a 
number of landovmers most of wnom live on the land. They have banned 
togetner to form a royalty comany to handle lease arrangements. the 
area availaole for a leasing comoany's overations is limited due to the 
close nouse sdacing. 


Geological Data: fhe royalty comoany has nired a geologist to make a 
study of the lease to determine the cossibility of finding oil. Because 
of the nature of the area, only a few seismic readings could be taken, but 
the study concluded that the vossibility of the existence of oil ina 
vorous formation at a deoth of 3100 feet was excellent. This formation 
memcenougnt to be part of the Yates formation. 


Drilling History: This lease is adjacent to a lease that is now being 
develoved, but drilling data from the lease is being keot confidential. 
From the little information that can be obtained, oroducing denths avopear 
to be about 4000 feet, and the wells are flowing well enough to make 
their allowables. 


Terms: Tne royalty company will not consider bids of less than twenty 
dollars an acre bonus and will lease to the highest bidder. Severe 
restrictions will be olaced on the driller because of this being a resident- 
ial area. Drilling is to commence within one year or a delay rental will 

be vaid to the lessor by the lessee of one dollar oer acre ner year. the 
lease will be terminated at the end of five years or when it is mutually 
apreed that voroduction of oil and/or gas is not, or is no longer economical. 


Lease Number _ 25 Acreage _ $10 
Bill Smith Lease 


Area Description: this lease is located in the Chio River valley in Ray 
County, Kentucky. The land is quite hilly although the hills are not 
very high. ‘the lease is situated about four miles south of the river. 


Geological Data: None. 
Drilling History: None. 


Terms: Mr. Smith has agreed to lease to the highest bidder if the bid is 
one. thousand dollars or more. the lessee must start drilling within one 
year or he must vay a delay rental of one dollar ver acre ver year. the 
lease will terminate at tne end of five years if no drilling has been done 
or when it is mutually agreed that vroduction of oil and/or gas is not, or 
ts no longer economical. 
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Lease Number _26 Acreage _2100 
Cartley's Land Tract Lease 


Area Descriotion: This tract of land is in the heart of the Kentucky Blue 
Grass country and is vresently used to vasture race horses. The land was 
leased 19 months ago and the lessee had geological studies made but the 
lease was never oroven. the lessee is now attempting to sell the lease 
for he is retiring from the oil business. 


Geological Data: From the studies made recently on this lease, it was 
determined that at least one cefinite unconformity existed under the 
western section of the lease wnich ended at a large fault. The depth 

of the cav rock apveared to be about 1500 feet below the surface. 
several layers of porous rock were detected under the cap rock that have 
definite »ossibilities of being vroductive. 


Drilling History: No drilling has been done on this lease or adjacent 
leases. 


Terms: The vresent lessee is asking for a minimum bid of two dollars and 
monty cents an acre olus the cost of the geological studies which was 

two thousand dollars. Drilling must commence within one year or lessee 

will vay the land ovmer one dollar ver acre per year as a delay rental 
charge. The oresent lessee will reimburse the land owner for the year's 
delay rental that the new lessee has to drill. The lease will be terminated 
at the end of five years or in the event that it is mutually agreed that 
oroduction of oil and/or gas is not, or is no longer economical. 
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Lease Number _ 27 Acreage _7000 
Red Desert Lease 


Area Descrivtion: This viece of land is sandy and dry and flat as far as 
the eye can see. It is uninhabited exceot for a few clusters of houses on 
the northwestern edge. Because of the climate and the land conditions, the 
fieeae has not been develoved and is considered a wasteland. 


Geological Data: None. 


Driliing History: This land has not been drilled on as this is the first 
time it has been available for leasing. A dry hole was drilled about tio 
Wears azo some ten miles south of this lease which is the only record of 

drilling in this area. : 


Terms: The owners will lease this land to the highest bidder for a minimum 
@f three thousand dollars bonus. Drilling must start within a year or the 
lessee will vay the lessor a delay rental vnayment of one dollar ver acre 
per year until drilling does start. The lease will terminate at the end of 
five years or when it is mutually agreed that the vroduction of oil and/or 
Bas is not, or is no longer economical. 


Lease Number 28 
€ 


Past Lease Production Time: 1 Nonth 


Producing Formation: Bowers Sand 
Average Producing Depth: 2200 ea hite 


Oil Wells: 
Currently oeing produced: 


Flowing: le 
Pumping: O. 
Gas Lift: O, 
Wells that have produced oil: 
Shut in: O. 


Plugged and abandoned: 0. 
Converted to gas wells: 0, 


Gas vwells: 


Producing: O- 
Shut in: . ‘ 0. 
Dry and abandoned: 0. 
Total wells drilled: ve 
Production to date: . 
Oil rroduction: 1000. 
Water Production: 0. 


Gas rroduction: . 
Gas produced from oil: 200. 
Dry Gas: O. 

' Total gas produced: 290. 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated: reservoir pressure; 
Saturation pressure; 

Oil A.P.I. gravity; 

Sulphur percentage; 


Royalty Interest: 
Owner: 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves: 


Minimum Bid; 


Acreage 2111 


$5l,,000, (estimated ) 
600,000. 


$900,000. 


Peay 





Lease Number 29 


Past Lease Production Time; 3 Months 


Producing Formation: Grayourg 
Average Producing Depth: h100 ft. 


O21 Wells: 
Currently being produced: 


Acreage 2777 


(NSCF) 


Flowing: 26 
Pumping: Oe 
Gas Lift: QO. . 
Wells that have produced oil: ae 
| Shut in: or 
Plugged and abandoned: 8c 
Converted to gas wells: 0. 
Gas Wells; 
Producing: Oe 4 
Shut in: ror ee0: 
Dry and abandoned: eee Po OZ 
Total wells drilled: a ee 
Production to date: ee 
Oil Production: 6000. 
Water Production: ‘110. 
Gas Production: — 
Gas produced from oil: / Se) 
Dry Gas: 2 Ue 
- Total gas produced: 750. 


Reservoir Data; 
Initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 

iu! A.P.1. gravity: 

' Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves: 


winimum Bid: _ 
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Lease Number 30 | Acreage 1000 


Past Lease Production Time: 2? months 


Producing Formation: Queen 
Average Producing Depth: B5CONEL. 
Oil Wells: 
Currently being produced: 
Flowing: 9. 
Pumping: on 
Gas Lift: O. 
Wells that have produced oil: 
| Shut in; O~. 


Plugged and abandoned: ~ 0, 
Converted to gas wells: oO, 


Gas Wells: 
Producing: — Oo 
Shut in: _ Oem 
Dry and abandoned: c; 
Total wells drilled: Page 


Production to date: 
Oil Production: PRE OG 
Water Production: Q 
Gas rroduction: 

Gas produced from oil: 5163. (MSCF) 


Dry Gas: 
Total gas produced: 5168, 


Reservoir Data: 


Initial reservoir pressure: . 3580. 

Present estimated-reservoir pressure: 3500. 
_ Saturation pressure: ; 3500. 
Oil A.P.I. gravity: a ho° 
Sulphur percentage; Ae, 
Royalty Interest: “ 

Owners: We 5% 

Other: 0.0 


Undepreciated tangible assets on lease: $350,000. | 
Estimated Reserves: 300,000. 


Minimum Bid: | $600,000. 


USE 





Tease Number 31 


Past Lease Production Time: 


Producing Formation: 
Average Producing Depth: 


Oil Wells: 
Currently being produced: 
Flowing: 
Pumping: 
Gas Lift: 


Wells that have produced oil: 


Shut ins 
Plugged and abandoned: 
Converted to gas wells: 


Gas Wells: 
Producing: 
Shut in: 


Dry and abandoned: 
Total wells drilled: 


Production to date: 
Oil Production: 
Water Production: 
Gas Production: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated-reservoir 
_ Saturation pressure: 
Onl A.P.J. gravity: 
Sulohur percentage: 


Royalty Interest: 
Owner: 
Other: 


2 onens 


Seven Rivers 


3550 ft. 


O00 dO0O0OF 


pressure: 


Undepreciated tangible assets on lease: 


Estimated Reserves: 


Hinimun Bid: 


Acreage 1983 


~ 1500. 


0. 
300. 
300. 


2100. 
2060. 


1,500,000. 


$900,000. 


(Sex) 


2 
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Lease Number _3¢ Acreage _3100 
Santon'ts Farm Lease 


Area Descriotion: This farmland was leased aonvroximately seven years 

eeo to the Accidental Drilling Company. Accidental had a2 five year 

lease anc decided to abandon the vroverty about the time it would have 
expired. Their equinment was in voor revair and they did not feel it 
was economical to renew or renair it. This land has been used as grazing 
land for the last two years. 


Geological Data: Drilling was originally started based on seismic readings 
that detected several faults. The leasing comoany drilled 2552 feet to 
these faults. The wells initially flowed about 200 barrels ver day with 
about fifteen ver cent water. Since the lease was abandoned, new seismic 
readings taxen on deever formations indicate a possible dome structure at 

a depth of about 6100 feet. 


Peiiine distory: There were nine wells on the lease. All of them were 

abandoned and filled in. The wells were vroducing about five barrels a 

day by pumping with no increase in the vercentage of water. None of the 

wells exceeded 3500 feet deeo. There was no seconcary recovery attemoted 
this reservoir. The wells were not acid treated or fractured. 


Terms: Mr, Santon will consider offers of five thousand dollars or more as 
a bonus to lease. ODriiling will commence within one year or a delay rental 
oayment of one dollar ver acre ver year will be paid to the lessor. ‘the 
lease will terminate at the end of five years or in the event that it is 
mutually agreed that the vrodcuction of oil and/or gas is not, or no longer 
economical. 


Lease Number _ 33 Acreage _1010 
Lake ‘WWatusi Lease 


Area Descrintion: The lease is located on the shores of beautiful Lake 
Watusi. The terrain is slightly hilly and about twenty-five ver cent 
wooded. This lease is part of a large dairy farm and most of the land 
in the lease is used as vasture. 


Geological Data: There are no vorosvective formations evident from the 
apvearence on the surface and no other geological data is available. 


Memeine History: None for this area. 


Terms: This lease is available for a minimum bonus of two thousand dollars 
and all bids will be considered. Drilling is to be started within one year 
or the leasing company will vay the owner a delay rental of one dollar ver 
acre ver year until drilling is started. The lease will terminate at the 
€nd of five years or when it is mutually agreed that it it not, or is no 
longer economical to vroduce oil and/or gas. 





Lease Number 3h 


Past Lease Production Time: 3 months 


Producing Formation: queen - 
Average Producing Deptn: 3000 ft. 
Oil Wells: 
Currently being produced: 
Flowing: Te 
Pumping: 0. 
Gas Lift: Oo; 
Wells that have produced oil: 
Shut in; 


Plugged and abandoned: 0. 
Converted to gas wells: 0. 


Gas Yells: 


Producing: ye 
Shut in: ; Or 
Dry and abandoned: ‘Oo; 
Total wells drilled: 2 pile 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: ; 
Initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 
Oil A.P.I. gravity: 
Sulphur percentage: 


Royalty Interes; 
Owner: 
Other: 
: Undepreciated tangible assets on lease: 


Estimated Reserves: 


Minimum Bid: 


Acreage 5231 


10,500. 
110. 


8L69. (SCF) 
81,69. 

3L10, PSI 
ella. 

3520. 


oom 
ey 


12.5% 
0.0 
$100,000. 
hoo ,000. 


$1,000,C00. 


13h 





Lease Number 35 Acreage 1950 


Past Lease Production Time: 107 Monsns 


Producing Formation: Ellenburger (lime) 
Average Producing Depth: (996.25 


Oil Wells: 
Currently being produced: 


Flowing: L 
Pumping ° O. 
Gas Lift: “Ox 

Wells that have produced oil: 
Shut in: 


Plugged and abandoned: 0. 
Converted to gas wells: 0. 


Gas Wells: 


Producing: 0. 
Shut in: 0. 
Dry and abandoned: . a0 
Total wells drilled: me ie 
Procauction to date; 
Oil Production: — 136,500. 
Water Production: | 0. 
Gas rroduction: | 
Gas produced from oil: _ 120,713. (SCF) 
Dry Gas: -: 
Total gas produced: leon Tals 
Reservoir Data: ? . 
Initial reservoir pressure: ae e500: 
Present estimated-reservoir pressure: _ 3355. 
_ Saturation pressure: 310. 
Oil A.P.I. gravity: | ee L2° 
Sulphur percentage: 7 0. 
Royalty Interest: yo 
Owners 12.5% 
Other: | 0.0 


Undepreciated tangible assets on lease: £360,000. 
Estimated Reserves: 590,000. 


Minimum Bid: | $95): ,000. 





Lease Number 36 


Past lease Production Time: 4. tionths 


Producing Formation: Seven Rivers 
Average Producing Depth: B2OOL EE. 


Oil Wells: 
Currently oeing produced: 


Flowing: 9. 
Pumping: on 
Gas Lift: QO. 
Wells that have produced oil: 
Shut in: O. 


Plugged and abandoned: 0, 
Converted to gas wells: oO, 


Gas Wells; 


Producing: 0, 
Shut in: 8) 
Dry and abandoned: yo: 
Total welis drilled: - Oe 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: 
initial reservoir pressure: 
Present estimated-reservoir pressure; 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 


Undepreciated tangible assets on lease: 


Estimated Reserves: 
Minimum Bid: : 


Acreage SSO1 


2600. 
ce 


2381. (MSCF) 
2331, 
2011, 
2009, 
2000, 
2° 
O. 
12.5% 
0.0 
not available 


1,000,000. 
$2,000,090. 
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Lease Number 37 


Past Lease Production Time: 3 xonvwhs 


Producing Formation: Seven Rivers 
Average Producing Depth: 3050 ft. 


Oil Wells: 
Currently being produced: 


Flowing: 5. 
Pumping: tas 
Gas Lift: 6 
Wells that have produced oil: 
Shut in: ° 


O 
Plugged and abandoned: 2. 
Converted to gas wells: 9 


Gas Wells: a 


Producing: O. 
Shut in: 2 Oe 
Dry and abandoned: a ce 
Total wells drilled: ” fe 


Production to date; 
Oa eroduction: 
Water Production: 
Gas Production: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data; 
initial reservoir pressure: 
Present estimated reservoir pressure; 
Saturation pressure; 

Oil A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves: 


Ninimun Bid: 


Acreage 1¢37 


(Oe 
600. 


Sorte 
Boris 
1327. 
1210, 
1800, 


ar 
aon 


009 
12.5% 
0.0 
BOG available 
200 ,0cO. 


#100 ,000. 


i, 





Lease Number 38 


Past Lease Production Time: 9 hionths 
Producing Formation: 
Average Producing Depth: 2500 fu. 
Oil Wells: 
Currently being produced: 
Flowing: 6: 
Pumping: Os 
Gas Lift: e) 
Wells that have produced oil: 
Shut in: 0 
Plugged and abandoned: 0. 
Converted to gas wells: 3 


Gas Wells: 


Producing: 0. 
Shut in: 0. 
Dry and abandoned: on 
Total wells drilled: We 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oii: 
Dry Gas: 
Total gas produced: 


Reservoir Data; 
Initial reservoir pressure: 
Present estimated reservoir pressure: 
Saturation pressure: 

Qi1 A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 


o* aa 


Bartlesville Sands 


Acreage _ 790 


55,000. 
5°50, 


146,000. (SCF) 


16,000. (uSCF) 


| 1,05. Poi 


iIUSS 


2000. 


One 


Undepreciated tangible assets on lease: not available. 


Estimated Reserves: 


LSGnimum Bid: 


210,000. 


¢ 300,000. 
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Lease Number 39 


Past Lease Production Time: years 


Producing Formation: .  Queen(sand) 
Average Producing Depth: ~° 2755 ft. 
Oil Wells: 
Currently being produced: 
Flowing: Sie 
Pumping: a Sy 
Gas Lift: ce 
Wells that have produced oil: 
| Shut ins O. 
Plugged and abandoned: ae ©, 
Converted to gas wells: O 


Gas Wells: 


Producing: ne PEO 
Shut in: (Oe 
Dry and abandoned: a 3. 


Total wells drilled: G4 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner; 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves: 


Minimum Bids ~ : 


Acreage 3500 


Schl coy 


10,090. 


263,00. (SCF) 


263,100. 


35C0. 
00. 
3000. 
m3? 
ay 


12.5% 
ORG 
none | 
50,000. 


$100,000. 


7 





Lease Number 10 4 Acreage 2315 _ 


Past Lease Production Time: 6 Months 


Producing Formation: . Grayourg (Permain) 
Average Producing Depth: 24500 ft. | 


Oil Wells: 

Currently being produced: 
Flowing: Te 
Pumping: 0. 
Gas Lift: 0. 

Wells that have produced oil: | 
Shut in: 1 
Plugged and abandoned: - 5: 
Converted to gas wells: 0. 


Gas wells; 
Producing: ess 
Shut in: : ole 


Dry and abandoned: 0. 
Total wells drilled: 8. 


Production to date: 
Oil Production: HOE ee. 
Water Production: 0. 
Gas Production: . | 
Gas produced from oil: 8,57." (SCF) 
Dry Gas: | | GO; 
Total gas produced: ol ee 


Reservoir Data: : _ | 
Initial reservoir pressure: 1500. 
Present estimated-reservoir pressure: 109. 
Saturation pressure: 1590. 

Oil A.P.I. gravity: ae 

Sulphur percentage: 0.9 


Royalty Interest: 


Owner : laa bys 

Other: 0.0 
Undepreciated tangible assets on lease: “80,000. 
Estimated Reserves: 850,000. 


Minimua Bid: . $1, 320,000. 





Why1 


Lease Number hl Acreage 72454 
aa . : 


Past Lease Production Time: 12 Months 


Producing Formation: San Andres 
Average Producing Depth: PESO. (ree 


Oil Wells: 
Currently being produced: 
- Flowing: - wh, 
Pumping: 0 
Gas Lift: QO 
Wells that have produced oil: 
Shut in: O, 
Plugged and abandoned: 7a” 
Converted to gas wells: Oz 


Gas Wells: 
Producing: oy 
Shut in:. Oy 


Dry and abandoned: ‘ale 
Total wells drilled: men 


Production to date; - 
Oil Production: EE 307000. 
Water Production: | none 
Gas rroduction: 

Gas produced from oil: «98 
Dry Gas: 
Total gas produced: 7 $3,000. - 


O00. (SCF ) 


Reservoir Data: : ; 

Initial reservoir pressure: - . 1350. 
Present estimated reservoir pressure: 1050. 
_ Saturation pressure: SO 
Oil A.P.I. gravity: ty a3 
Sulphur percentage: . 3 


Royalty Interest: oe 
Owner: 12.5% 
Other: O50 
Undepreciated tangible assets on lease: £300,000. 


Estimated Reserves: 900,050. 


“inimem Bid: $1,100,000. 





Lease Number hi2 


Past Lease Production Time: 7 years 


Producing Formation: Yates ° 
Average Producing Depth: E350 oft. 


Oil Wells: 
Currently being produced: 


Flowing: O. 
Pumping: eae se 
Gas Lift: 0. 
Wells that have produced oil: 
Shut in; e O. 
Plugged and abandoned: — 0. 
Converted to gas wells: ms 
Gas Wells: 
Producing : QO. 
Shut in: O. 
Dry and abandoned: | he 
Total wells drilled: : Blige 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: 3 
initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: _ _~ 
Oil A.P.I. gravity: 
Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 


Undepreciated tangible assets on lease: 


Estimated Reserves; 


Linimun Bid: 


Acreage 


ee hise210, 


1,657,000. 


2,118,000. 


O. 


a2 le nOO0. 


1750. 
350. 


$500,000. 


V2 


j—4 
IQ 
NO 
O 


(produced less injected) 


(MSC?) 





Lease Number }3 


Past Lease Production Time: 2 Months 
Producing Formation: Simoson 
Average Producing Depth: h100. ft. 
Oil Wells; 
Currently being produced: 
Flowing: ily. 
Pumping: OF 
Gas Lift: Or 
Wells that have produced oil: 
Shut in: 0 
Plugged and abandoned: © 0 
Converted to gas wells: 0 


Gas Vells;: 


Producing: - 0. 
Shut in: - OF 
Dry and abandoned: | 20), 


Total wells drilled: poe 


_ Production to date: 

Oil Production: 

Water Production: 

Gas Production: 
Gas produced from oil: 
Dry Gas; 
Total gas produced: 


Reservoir Data; 
Initial reservoir pressure: 
Present estimated-reservoir pressure; 
Saturation pressure: 

Qi] A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 
Undepreciated tangible assets on lease: 


Estimated Reserves: 


Minimum Bid: 


13 


Acreage 1511 


(MSCF ) 


£500,000. 





Th 


Lease Numbder _ hh | Acreage _ 2850 
Bar-B-Q Ranch Lease 


Area Descripvtion: This area is rolling grasslands in southern ‘yoming, 
svotted with rock crests that break abruptly into more grasslands. It 
is oresently used to vasture sheeo. 


Geological Data: The adjoining ranch was leased about three years ago 
and has been develoned and turned out to be very productive. Seismic 
more has been done on the area of this lease next to Che oroducing lease 
and indications are that a fairly large anticline exists under this lease. 
Miventoo of the oorous layer that may be productive lies about 1700 tear 
beneath the surface. 


Drilling history: No wells have been drilled on this lease. The fifteen 
wells on the adjoining lease are vresently averaging about 82 barrels a 
day flowing from a deoth of 2200 feet. | 


feats. ine swner will accept bids for consideration of five dollars ver 
acre olus reimbursement of the fee he vaid for the geological studies 
wnich was two thousand five hundred dollars. Drilling must begin within 
one year or the lessee will vay the lessor a delay rental vayment of one 
Goular ner acre ver year until drilling has started. he lease will 
terminate at the end of five years or wnen it determined that it is not 
or is no longer economical to vroduce oil and/or gas. 


Lease Number _15 Acreage _ $96 
Carolina Coastland Lease 


Area Description: This lease is located in Eastern North Carolina where 
the terrain is flat and sandy. This is an area in which new interest in 
exoloration has recently sprung un, and many oil veoole are very entnu- 
Seasicic about its future in oil vroduction. 


Geological Data: Magnetic surveys have been recently made of this area 
and they indicated that the sedimentary basin was favorable. No vorosvective 
formations could be detected. 


Drilling History: This is a new area of drilling interest but none has been 
done so far. 


femmes: the owner will consider bids of one thousand dollars or more as a 
bonus for leasing this land. Drilling must commence within one year or a 
delay rental must be vaid to the lessor of one dollar ver acre ver year. 
The lease will be terminated within five years or when it is determined 
that oroduction of oil and/or gas is not, or is no longer economical. 





Lease Number US Acreage 1999 


Past Lease Production Time: - 2 Konths 


Producing Formation: Silurian 
Average Producing Depth: 7200 ft. 


Oil Wells: 

Currently oveing produced: 
Flowing: 
Pumping: 
Gas Lift: 

Wells that have produced oil: 

| Shut in: 
Plugged and abandoned: 
Converted to gas wells: 


OOO o00F 
e 


Gas Wells: 7 
Producing: Necro: 
Shut in: : 0 


Dry and abandoned: . on 
Total wells drilled: ose 


Production to date: : 
Oil Production: | 1500. 
Water Production: 300, 
Gas rroduction: . 
Gas produced from oil: 350. (MSC) 
Dry Gas: ° 
Total gas produced: . 350. 


Reservoir Data; ; 
Initial reservoir pressure: ees 
Present estimated-reservoir pressure: 3200. 
Saturation pressure: - 3300. 

O11 A.P.I. gravity: . | = MBs 

Sulphur percentage: 89 


Royalty Interest: ; 
Owner: 12.5% 
Other: 0.0 

Unde preciated tangible assets on lease: Not available. 


Estimated Reserves: 1,000 ,0Cc0. 


Minimum Bid: 7 $633,000. 





Lease Number 1b7 


Past Lease Production Time: 3 Months 


Producing Formation: Ellenburger 
Average Producing Depth: 3000. ft. 
Oil Wells; 
Currently being produced: 
Flowing: 9. 
Pumping: - OF 
Gas Lift: Os 
Wells that have produced oil: 
Shut in; 0. 
Plugged and abandoned: bo O- 
Converted to gas wells: O 
Gas Wells; 
Producing: — Ghee 
Shut in: < wo. 
Dry and abandoned: i 0. 
Total wells drilled: 6 


Production to date: 
Oil Production: 
Water Production; 
Gas Production: | 
Gas produced from oil: 
Dry Gas: | 
Total gas produced: 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated-reservoir pressure: 
Saturation pressure: 

fot A.P.1. gravity: 

Sulphur percentage: 


Royalty Interest: 

Owner 

Other: 
Undepreciated tangible assets on lease: 
Estimated Reserves: 


hiinimun Bid: 


16 


Acreage 2501 


Not available. 
300 ,000. 


$200,000. 





Lease Number 18 


Past Lease Production Time: 1 Year 
Producing Formation: Ellenburger 
Average Producing Depth: + FOOONL Ts 
Oil Wells: 
Currently being produced: 
Flowing: IS 
Pumping: QO. 
Gas lift: oe 
Wells that have produced oil: 
Shut in; QO. 
Plugged and abandoned: 0. 
Converted to gas wells; 0. 
Gas Vells; 
Producing: 
Shut in: -O. 
Os 
Dry and abandoned: 0; 
Total wells drilled: 16. 


Production to date: 
Oil Production: 
Water Production: 
Gas Production: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated reservoir pressure: 
Saturation pressure: | 

fit AlP.1. gravity: 

Sulphur percentage: 


Royalty Interest: 

Owner: 

Other: © 
Undepreciated tangible assets on lease: 
Estimated Reserves: 


Minimum Bid: 


"161,000. 


17 


Acreage 2775 


_ 150,000. 
300. 


(HSCF) 

len eer. 
h2h7. | 
3900. : "a. 
L200, 


Bere lie 
20 


12.5% 
Osu 
not available. 
1,000,000. 


$1,000,000. 





1h8 


Lease Number 9 . Acreage _2205_ 
Louisiana tarshlands Lease 


Area Descriotion: This land is entirely marshland and all of it is at 
least oartially submerged. An oil slick or film is frequently found in 
some sections of the lease on the surface of the water. Recently the © 
scum was analyzed and determined to be crude oil. It is assumed that 
the oil exudes from the ground as the marsh is not navigable and is not 
directly connected to the Gulf where shins might well be accountable for 
the oil. Also there are no vroducing oil fieids in the area. 


Geological Data: None. 


Drilling History: This lease was drilled in the early 1930's, however, 
the adverse working conditions and the depression forced the comoany to 
abandon the lease. A short time later tne company went out of business 
and the records of the drilling cannot be located. 


Terms: The state owns the land and is orepvared to acceot a minimum bid 
of seven thousand dollars, but it will lease to the highest bidcer. 
Drilling must start within one year or the lessee will vay the state 

a delay rental of one dollar wer acre oer year until the time when dril- 
ling is started. The lease will be terminated at the end of five years 
or when it is mutually agreed that the oroduction of oil and/or gas is 
mou, Of is no longer economical. 


remeer eS ees SOO RST OT SO ee ee ee ee ee ee eee ee eae eee ee eee ee ee eee ee ee lee lee eee eee eee eee ee ee eee eee ee ee ee ee ee ee ee ee Se ee ee ee ee ee es 6 ee ee es oe oe 


Lease Number 50 Acreage 10 ,0CC 
Chief rainbow Lease 


Area Descrivtion: The land in this lease is oven range grassland used for 
Piezane the cattle of the Indians. xocks orotrude in an irresular fashion 
and there are a few trees in some of the valleys. This land is vart of the 
Pomocoky Indian Reservation. 


Geological Data: There are thought to be two favorable sedimentary layers 
in the area of this lease, dut this has not been tested. 


Drilling History: There has been no drilling on this lease or in the 
Meernivy of it. 


Terms: The Council of Chiefs of the Pomocokys will acceot a minimum bonus 
of twelve thousand dollars to lease but will lease to the highest bidder. 
Drilling must begin within one year or the lessee will vay a celay rental 
of one dollar ver acre ver year. the lease will terminate at the end of 
five years or when it is mutually determined that vroduction of oil and/or 
@eewis not, or is no longer economical. 
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Lease Number 51 | Acreage 5700 


Past Lease Production Time: 4 Months 


Producing Formation: Bartlesville Sand 
Average Producing Depth: BAG ey soc 


Oil Wells; 

Currently being produced: 
Flowing: 
Pumping: 
Gas Lift: 

Wells that have produced oil: 
Shut in; 
Plugged and abandoned: 
Converted to gas wells: 


‘omene” oO OwW 


Gas ‘ells; 
Producing: - 0. 
Shut in: 0 


Dry and abandoned: Oe 
Total wells drilled: be 


Production to date: x 
Oil Production: 27,0008 
" . Water Production: h50. ; 
Gas Production: | 5,400. (SCF) 
Gas produced from oil: 5,400. - 
Dry Gas: ‘ 
Total gas produced: 5,00. 


Reservoir Data: ae . 
Initial reservoir pressure: 2500. 
Present estimated-reservoir pressure: 2h85. 
Saturation pressure: 2L,00. 

Oil A.P.I. gravity: | oes 

Sulphur percentage: eos 


Royalty Interest: a 
Owner: 2 
Other: (Oe 

Undepreciated tangible assets on lease; 


Estimated Reserves: 7 l ,OCO, 000. 
Liinimum Bid: | $2,500,000. 





lease Number 52 


Past Lease Production Times 5 Years 


Producing Formation: Yates 
Average Producing Depth: ~ 1100. ft. 
Oil Wells; 
Currently oeing produced: 
Flowing: a. 
Pumping: _ 0 
Gas Lift: O 
Wells that have produced oil: | 
Shut in; “Os 
Plugged and abandoned: mer 
Converted to gas wells: 0. 
Gas ‘Wells; 
Producing: ee 
Shut in: . 0 


Dry and abandoned: 
Total wells drilled: 


Production to date: - 
Oil Production: 
Water Production: 
Gas Production: 
Gas produced from oil: 
Dry Gas; 
Total gas produced: 


Reservoir Data: 
initial reservoir pressure: 
Present estimated-reservoir sata 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other; 
Undepreciated tangible assets,on lease; 


Estimated Reserves; 


Mininun Bid: 


=" —~ 


Acreage ©70 


10, 360. 


35. 


3000. 
0. 
3000. 


1611. 

1000. 

2100. 
3k° 
220 


12.5% 


none 


65,000. 


$30,000. 


(MSCF) 


PSI 


150 





Lease Number 53 


Past Lease Production Time: 1:0 Nonths 


Producing Formation: Yates 
Average Producing Depth: 3000, ft. 


Oil Wells: 

Currently oeing produced: 
Flowing: 
Pumping: 
Gas Lift: 

Wells that have produced oil: 
Shut.ins: 
Plugged and abandoned: 
Converted to gas wells: 


OO9O O v1 O 


Gas Wells: ° : 
Producing: - O 
Shut in: we 0 


Dry and abandoned: | ~ i o “Se 
Total wells drilled: " ; 6. 


Production to date: 
O11 rroduction: 
Water Production: 
Gas Producticn: 
Gas produced from oil: 
Dry Gas: 
Total gas produced: 


Reservoir Data; 
initial reservoir pressure: 
- Present estimated-reservoir pressure: 
Saturation pressures — 
Oil A.pP.I. gravity: 
Sulphur percentage; 


Royalty Interest: 

Owner; 

Other: 
Undepreciated tangible assets on lease; 
Estimated Reserves: 


feamamun Bid: 


e 


» 


Acreage 1231 


295,000. 
280,000. 


310,000. (SCF) 


0. 
310,000. 
1611, 
1800. 


30° 
0.9 


12.5% 
0.0 


300,000. 


$100,000. 


EL 
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Lease Number _ 5 . Acreage _ 1330 
Jones Lease 


Area Description: The terrain of the area is hilly and rocky. The southern 
border of the lease is formed by the Missouri River. aA small vart of the 
mease is used to grow croos, but it 1S mainly used for cattle ¢grazine. 


Geological Data: The only geological data available are aerial onotograohs 
taken by the State Geological Survey in 1960. A brief examination denotes 
an anticline structure may exist in the area of the lease. It avvears 

to be under about two-thirds of the lease running east and west varallel 
to the river. More detailed studies are indicated. 


Drilling History: A well was drilled to about 3850 feet on an adjoining 
lease that vroduced a show of oil but mostly brine. The comoany drilling 
the well was a small wildcatter wno used very little geological data to 
suooort his choice of the drilling sight. ‘This well was drilled before the 
aerial ohotograons were made and it is believed that the well was drilled at 
the very edge of the structure. ‘Well or core data is not available. 


Terms: The owner will consider no less than fifty cents an acre as a bonus 
for the lease. Drilling is to commence within one year or a delay rental 
will be paid by the lessee to the lessor of one dollar ver acre ver year. 
the lease will be terminated at the end of five years or when it is mutually 
agreed that production of oil and/or gas is not, or is no longer economical. 


Lease Number __55 Acreage _ 830 
Joe Funk Lease 


Area Descriotion: Level to slightly rolling land describes this lease 
located in west central Mebraska. I1t borders on a state owned lake. 


Geological Data: Althougn there is no geological data available at this 

Hime this area is fast becoming a good oroducer of o11 and gas. d«#ost of 
iaemerocguctionein thesarea is from formations irom six to eight thousand 

feet deen. 


Drilling History: There is no record of drilling for oil on this lease. 


Terms: Mr. Funk will lease the land to the highest bidder for not less than 
C€ight nundred dollars. Drilling should start within one year or lessee will 
be liable to lessor for a delay rental vayment of one dollar ver acre ver 
year. Ihe lease will be terminated at the end of five years if no driiling 
has been started or at such time that it is mutually agreed that vroduction 
of oil and/or gas is not, or is no longer economical. 





Lease Number 55 


Past Lease Production Time: 5 Months 


Producing Formation: Grayburg 
Average Producing Depth: BEC) mice 


Oil Wells: 
Currently being produced: 


Flowing: 3. 
Pumping: 0. 
Gas Lift: 0. 
Wells that have produced oil: 
Shut in: Tae oF 
Plugged and abandoned: ee 
Converted to gas wells: 0) 
Gas Wells; 
Producing: Oe 
Shut in: 2 0. 
Dry and abandoned: (Oe 


Total wells drilled: — ; ioe 


Production to date: 
Oil Production: 
Water Production: 
Gas rroduction: 
Gas produced from oil; 
Dry Gas: 
Total gas produced: 


Reservoir Data: 
Initial reservoir pressure: 
Present estimated-reservoir pressure; 
Saturation pressure: 

Oil A.P.I. gravity: | 

Sulphur percentage: 


Royalty Interest: 
Owner: 
Other: 


Undepreciated tangible assets on lease; 


Estimated Reserves: 


Yinimum Bid: — 


Acreage 6000. 


4 


180,000. 
1,000. 


120,000. (3iSCF) 
0 


120,000. . 


i Los 


1,000,000. 


$750,000, 


aS: 








APPENDIXES 








APPENDIX A 
Flow Charts 


=| 





REAL INTANG INVEST INTReC, INTPAY NETINC L#OPAC MQUOTS 





DIMENSION BID,ACRES, IDENT, LEASE, LNSSHE, PAYCAP, PENSEL, 
RVERSN ,ABAND, PENRVT, 2ENABD, NWSLLS ,ABDCCS ,OILPRD, GAS 22D, 
GORINT NETTING ,OTHINC ,SOLDST, Ga INLT, XLOSLT,OPcosT, 

REVNUE, ROYLTY ,GROSS, INTANG, TANG, BTXNET, DIVDND,XLOSS, 
DEPLET,ACCREC,DEPREC, DRILCS , SAGE, IELECT,RESORS,VCFACT, 
DZERC NELECT, aENS", PENDEP,aCCPAY, INVEST, CASi,STLOAN, 
ELP3EN BONDS SHARES ,RTZANH, MQUOTH, REVLNS, REQPAY ,REQINV, 
OTHLOS , REQBND, EANDD, OP2#S ,NPUATS, FRINGS, PaY ,ORCARY QZERO, 
BQLIFE, SYCOST, LESPAC, TIM! ,GEOFAC , WELNUM, NO, 2©2FRC,REQACD, 
BIDMIN , XORILL, ASSETS, PINT, VISCTY EVP, REQPLUP, XTEMP, REYSEC 


READ 
PARAM °TER 


LENGTH 


ALNGTH/12, 


= 
| 

| 

| 

| _—~ 
| = 

| OTHINC(I) 

| XLOSLT(T) 

| GAINLT(T) 

| ToENT(I) 

PENSEL(T, 

, PENRVT(I, 

| 

| 








LES 







READ LESSEE, LEASE, NVELLS ,NPDATE, RESORS, EQLIFE, 
EQAGE, TANG, INTANG, IELSCT,VCFACT, ACRES, GEOFAC, 
: LESFAC, TIMS,QZERO, DZER0,NO,BIDUIN,VELNUM, 
EQCOST, PINT, VISCTY ,FVF ,GORINT 


WRITE 
ACCOUNTIN 
DATA 












WRITE LESSEE, LEASE, NWELLS ,NPIATS, RESORS , EILIFS, 
BOAGE, TANG, INTANG, T©LECT,VCFACT,ACRES ,GEOFAC, 

LESFAC, TIME, QZERO, DZERO, NO, BIDVIN, SELNUM, 
 EXCOST, PINT, VISCTY ,FVF ,GORINT 





GASPRD{I) = 0,9 

REVNUE(I) = 0,0 : 
ROYLTY(I) = 0.0 

GROSS(I) = 0.0 

CPCOST(I) = 0,9 

DEPREC(=) =-9,9 

DEPLET(I} = 0.0 

ETKXNET(I) = 9.0 

DIILGs se —0.0 


XLOSS(I) = 6.0 
OILPRD(T) = Oe, 
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cm ee eee 









READ 
COMPANY 
DECISIONS 










>_< 


REQUINS(IMK\_= sea 
SO enL 


> 


CRATIO = (CASH(I) + ACCREC(I))/(ACCPAL(I) + STLOAN(I)) 





REJENS(i) = 0.0 


Km ae 


=> 
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r3 


EMP = (CASH(I) + ACCREC(I) - 2.0 * ACCOAY(I))/2.0 - STLOAN(TI) | 


STLOAN(I) = STLOAN(I) + REQLNS(T) 
CASH(I) = CASH( I) + REQINS(I) 






Tivie = XLNGTH/TENISR 





CASH(I) = CASH(I) + ACCREC(I) + TEMP 
BCCR2C( 1) SACs ee eo) = TEL?) 
TEMP = XLNGTH 








“se 

















CASH(I) = CASH(I) ~ ACCPAY(I) * TEM 
ACCe! i 1 )y= CCl ee Oe ee 
XTEM2(1) = OTHLOS(T) 


; 
II=II+1 kK ee 





> 


TEMPM@ee EAS aC 1s 
0509 NCHECK = 0 
NEQUAL = 0 








£OL 





SIDMIN( Ii 
j "\BID( I,J, > 


HOLD2 = BID(I,J,2) 





NEQUAL = 1 
IDENT(I) = I 












2 ROLDZ 






NEQUAL = NEQUAL +1 


CONTINUE 


CONTINUE 





NS 





HK ON P< 
nh HH it 
4 
© 
ta 
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SH(I) - HOLS2 % CASHF 
ACCPAY(1) + HOLD2 « (1. - CASHFT) 


CASH( I) 
ICO GE 





= Ca 
I) = 


HOLDL = TANG(CII) + INTANS(II) 






HOLD2 > 
OLD] & ABors- 


true GAINLT(ND@AL) = 
NPDATE(II)> 4 


GAINLT(NDZal) + HOLD2 - HOLD 


















false 
HOLD2 < | 
HOLDL & MESES : XLOSLT(NDVAL) = 
NPOAT=(II)> 6 Puss XLOSLI(NSSAL) + HOLDI-HOLD? 





15); 








lee —_————--- sooo 
a} 4 6. i NDEAL) 
IXLOSLT(NDEAL) — HOLD2+tHOLD] 








NPDATE(II) <5 & 
HOLDI> HOLD2 











LESES - 
porcine 6. 
& HKOLDI < HOLD2 





true | OTHINC(HDZAL) 


OTHINC(ND=AL) 





HOLD2e—HO a 








a 


CASH(NDZAL) = CASH(NDEAL) + HOLD2 + CASHFT 


ee DEAL) ACCREC(NDEAL) tte Ol, SUG NS) 
@ > erie true D.COST(II) = HOLD2 + “3CSrr 
0 
false 
<> ms TANG(II) = 22cosT(II) 
A 








NPDATA( Ti) = MescS + 1 
INTANG(II) = HOLN2 ~ TANG(II) 
HOLD] = 0,0 
HOLD2 = 0,0 





raed 












TD, = 810 Ciao) 


—=— 


DO x = 
T _ ihe MAKO,IN 
| 
| 
| = 
L — —<fpssze(1, 2 >= 


BIDHIN(II) = BID(I,J,2) 


LESSu8 (I,K) @) 600 ' 





PENSEL(I,2) = PENSFL(i,2) + FINE ‘ 
PENSEL(I,1) = -BID(I,J,1) 
Bae ie) «= 0,0 
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II = RVERSN(I,J) 










DO K = 
1, MAXOWN 



























eASE(II} = II 

| RVERSN(I,J) = 0.0 
LESSZE(I.K) = 0 

| XICSLT(1) = XLOSLT(I) + INTARG(II 
INTANS(IL) = 

| 

, PONRVT(1,2) = PENRVT(1,2) + FINS 
PENRVT(I,1) = XYERSN(I,J) 

| RYERSN(I,d) = 0.0 














DO I = 
1, NPLAY 


cee eee 





DO J=1,h 


eee ee eee ee 


<= 
II = ABAND(I,J) 


LESSEL(I,K} —— 
eal 


=A 


= ABAND(T, J) 
= Pi NABO(T, 2) + FINE 


PENABD( 1,1) 
PENABD(I, 2) 






WELIS = NWSLLs 





INTANS( II) = 0,0 
esi: = os O 


Ae 


aries oe CUNTINUE 


eae CoHENTS, 





A3DCOS(I) = ABDCOS(I) + “SLLS * ABDNFT 
XLOSLI(I) = ee + TaNG(II) + INTANG(II) 


iL 
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Syn ee ETE am 


aes -l PRINGE(I) = BENFIT 


REQPAY(INK> 
el vl 4 ‘ ad 
RAL BA 





PEQPAY(I) 


BIPAY(N. < 
5 .9%PAYBAS Roark’ (1) 


i 


0.9 + PAYBAS 


YEQPAY(I) 














PRINCE (I) 


52. xB =SNBAS FRINGS(I) = 2.0 - BENBAS 






PaY(I) = R=QPAY(I) 


ee ae si 
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TeuP = TEMP + PAY(I) 
NETINC(I) = NSTINC(1) * XINGTH 
HOLD1 = HOLD] + NiTINC(I) 
HOLD2 = HOLD? + BMPS: 


BEN( I) 
(538) eo 
os... 5 ee 


X = NPLAY 





PAYAVG = TEMP/X 
BENAVG = HOLD2/X 
AVGINC = HOLD1/X 


bale = 0.0 





DO I = 1,56 





| 


t 


MONTH = MONTH + LaNGTs - 2 | 


< 






MONTH = MONTH ~ 12 
NYZAR = N{ZAR + 1 


és) - - — - 


O ‘ = 
(1.0 — PaY(1)/PALAVG) + (1.0 - PAY(1)/PAYBAS) 
(1.0 ~ EMPBEN(I)/BENAVG) + (1.0 - EXNP3EN(1)/BaNBAS) 












72 





=e 


STRIKE = (STRIAW + STRIK2)) = STKFAC| 


<r | STRIKE = 0.0 


ee > 
OTRIKS ms STRIKE = 1.0 
: O 














CALL RANDNO(RNUM) 


true 
RNUN> 0,0. S —— 
RNUM < STRIKE ISTRIiK = ] 


false 






OWN = 0, 
Bone ee O. 
TOTTAN O20 
TOTINT = 0,0 
Do ALA =O 
DRILL = 0 
TOTREV 
RBHE LCD: 
TCrece 
LOIa eR 
TOPs ei 
Teles 
TOLERS 
TCOTGAS 
ADD O50 
TUTGIL.="0. 
Gee = 10. 
AOUNT = OG 
TEs O. 0 


0 
OQ 


0 


Ld e ° 


e 


Hh ow tf & Ww Wl 


CO C7 Corey Ss 
Cr (9 OO) © 


fn off 
ee ee 
OO 








50} ee DO J = 
Gr) 1,KAXOW / 


© 


Ti = i&SSha(1,J) 
OWN = OWN + 1,0 
TekuP = II 
KESeS = ITHNP 


ney ane 
J. (00S) pease nao 1, LENGTH 


CoB 
> 


OIL] = QZER0(1I)/HXP(DZERO(II) * TINE(II)) 
ONL? = QZ2R0( TI )/EXP(DZERO( IE) = (TIE) + 1.0)) 
OILFAC = (OIL1 + OIL2)/2.0 
















aie 





172 


oA 


RES PUPCI 
‘7 ne 


Kp= 


3 


GFAC = GORINT(II)/10. 
GORL = (1. + SIN(3.11559 * (3./2. + TINE(ITI)/GFAC))) * 
QZERO(II) * (30./DZ=RQX(Ii))/OIL1 + GORINT(II) 
GOR2 = (1. + SIN(3.1L1659 * (3./2. +(TINE(II) + 1.0)/GFAC))) * 
QZERO(II) * (30./DZERO(II))/OIL2 + GORINT(II) 
GOR = (GOR8l + GOR2)/2.0 


GOR: 
GORINT(II) # 0.9 GOR = GORINT(1I1I)-0.9 


YJ 
4 










Jileac 
Oe 
PRIGAS 


H wo on 
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SELNUU(K,1s= 


- TEMP 


PROOLL > | 
X+OLTLALY A > PROOIL = KX * OJIALY 


PRDGAS = PRDOIL + GOR + .001 


; =, senor = GASALN#X/(GOR*.001) 





Progioe= PRD Lo scOne- con 

OILRD(II) = OLTPRD(II) + PRDOOIL 

sit ra = GASPR 2( IL) + PRDGAS 
RE(II) = TIMS(II) + PROOIL/HOLD2 


1733— — — — — +{p0 kK = 1,3 








—e eee See eee 





See 
ton i eog, 
: 60 







PSS 
NPIATACII 
‘ 12 










[petaya = Vines 00 Len ees sn) ee of +869 
i 
Be 185C) 
LOSLT(I) + INTANS(IT) 
= 9.0 








oe Eee 


ee ee ee 


17h 
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whith IL; 






N= on ma 
CORY S ET 


Neh 
Pee 2) em PILL(I,K,2) = 1,0 













CALL RANDNC( RUM) 












Filla = LESGFAC(is) 


WEINUL(LASTES,1) = IT 
RERUN (LISTIS2) = RNUM 

Lgoenc eieL) =e ei eat _ i Khe 
NWSLLS{37) = NUSLIS(IT) + 
pole = (22eo(il) ae, 
OTIPAC = (HO1D2 — mDEs2 ee a2 =R0(T1)})/2.0 - ; 
Pl = CliF C/{ (PE. TC eee M1) /2x 2( 4O, 11) See) (2.0 











Wie 








CRSA 
NOGe sa 







fae 
mgvuUdd 


DALANG 








A, S 





NOC IT):25 















Mw-Te 


KOU = KOUNT + 2 








Ieas 


Lh 





eG 





sae aaG Glia CO 


| HOLO2 = 0.0 


oe — 









GANDDO(I) = SANDO(I) + DRYACS 
XIRILL(I,KK,1) = 0. 
ROW C Gr ee 





NWELLS (IT) 






- 





0 
OQ 


= 107, 
=O. * 
CALL RAK DNOCRNU is) 


e Seer OAT (Ch) 
M/S, 
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Gi TO oa 
S15) Spel beols . Sines aioe 
S16) Oi gS these statenents 
See Same are similar only 
one will be 
cnarted - 
| 
| 
RESORS(IT) = (120, + RUM # 115.) » 10000.) | 
EO SOC I) ee SSCS (ONL ye Tescene | 
DZ2R0( 11) = 6.035 
QZ5R0(TI) = 1./.009012 * DZERO(II)/.995 
PINT( 41) = 1000, + RNUM = 1\000, 
FVr(II) = 1,1 + RNUM # .) 


CALL RANONOCRNUI) 
WELNUM( LAST 1) = II 
VELNUM( LASTNM Ne RUA 
LASTING: = LASTIM + 1 
MESPAC CLT ) = vhost 0 Ole) mer tis 
K= ] 
HOLD2 = QZ2@RO(II) «+ RYUM 
OILFAC = (HOLD2 - HOLE /2 XP( DZ"2C(IT))) /2.0 
PI = OILFAC/( ( PINT da) = Pint 11) /EXP(02en0( Uh eee 2 
CaLL RANDNO( RNU2) 
VISCTY(II) = O.1 +:20, 3 RNUM 
CALL RANDNO(ENUM) 
GOZIIT(II) = 1000, + ANU 


“J 


PAYOUT = 7,03 * PI/(VISCTY(II) * FVF(II) + 


UN 
ee” 


false 









(Steph Go mere 





VISCTY(il) = 


Welle 





she 
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Wi2LIS(II) = 1 

DRILCSC iD) aa LCS aaa DRINTG 

CASE(1) = CaSH(i) = Caster =< Dela, 

ACCPAL({I) = ACCPAY(1) + (1.0 ~ CASHFT) + DRTANG 
TANG(II) = TANG(TI) + DATANG 

SOCcS7( LL) SOC tee aD nG 
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ie oO Gene = 


true - 
NO(II) = Ol es 
CaATL 2ANcNO( RNUT) 





QZERO(CII) = 2S0{ TI) 2 Fine LO 
DZERO(I1) = DZERC(iI) * DECLN 
tae Sg 

HOUNT = KOUNT + 7 
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eel Y 


The comautations for 
Acid trea zing | punoene 
& seconlary recovery 
dre SimilaryGo teu em 
Practurine ane will soo 
Dee Loy tenance 


BANDD(I) = EANDD(I) + FRCCOS 
KOUNT = KOUNT + 1 








WRITE X,z 





TANG( IL) = TANG(ii) 


CASH{I) = CASH{I) 
NEG IOQU)! = 
D I 


COST 
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Le) oe aes —(en) 


QiLePD(IT)t++ OPRICK + GASPAD(II) * GPRICE 
POYL * RSVNUB( IT) 


NNO) =. Ou ea) 





















Bowie. (I 
OVOIC AEN. 


> 


nee 


a 
I) = 


eye i 


(| 





aoe) SLIGO py mans tu 2) 


EE AMD. Saree Bt I CREE I Sopcde> RRS | 


34COS 





FACTOR = (# 





FACTOR ; 
Oe7e 





> 
PAC (iD) ee eee) 








132 


<= 
; B,COST(T1) = TaNG(12)| 





ies tau 
7 3 





GANS) CASH (1) ~ RENEY(I,K,2) + OS 
ACGrav( 1) = s.0Gr. Cie aN ae K,2) « (1. + CASHFT)} 








TE? = [eee Si 2) oo 
TOTES = TOTK*S + Trip 
VAR = VCPACT(II) « SXPCERAGS(II) /n3LiF=(1I1) 

OrCcOST( TT) = PAGE fo, See hea, ce (PAY ie) a ELPBa( i )) 
+ VAR * OCLLPROCIT) 





TANG(II)ZO.0 
or EQAGE(II) 
SS See (a) 






true 





false 
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NEuACT(T, 


A eas 















- 
ra 


a 5 al dit Wan) — . 
Ue EI 2) 








NLECT(1,K,2)=1 
2 Tee Dee 


PMNoue( I, 2 
: 


) 
PENDZP(I,1) = II 





18); 





| 






ITEHP ve EDCOST( II) 


Rony 
se Ue) = + (1) 
Ren DEPREC(IZ) = TAUG(TI)/eILiFE(II) |. 

. TpLect( il) = peed c(i!) = 





SBEPeoC(UIT) = DerAsCc iI) + | 














155 





os Ve 
= 12 





repr Rr fe 
TA pli ste ah lage at 2 Janie Nu wa C 
2 e 2 es 
== 









QVAGE(II) = ERaGE(II) + XLNGTA 
1355 | Tass if) = Tawa( ii) = Dacave (il) 
Taal = GEOSS(IT) = Riéss(ii) = DaPesC lie 
ORILC (21) Beco Siu) | 


is +. O2teCok 11} 







— =<. 


HOLD? = INTANG(iI) * OILP22(ii)/2 Sener 
RESORS(I1) = ReSOR(IT) = Ollie) ee 


<= 
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PEADPL > 


— se 2 
© wiylie 72) 
e®@ a aden 











> 
pers Cit = ee 
< PE en Nae EE IE 
DEPLET(IT) = HOLD? 
Var. =, bal epee P| 
DEPLET( II) = HOLD? ~+— (858) 


BIXNeR Gn = stores pare haem) 
INTANG( Ii} = SNTANG (71) = 92Pip UCI) 








Le ee | 
INTANG( II) BA ADD - INTANG(ZI)| 
aes 


TG) 
er 


GNTASGCIT) moe. 









TOTREV = TOTSIN + REVNUZ(Ii) 

TOTOIL = TOTOIL + GILARS( IT) 

TOTGAS = TOTGAS + GAS PxD(iIT) 

TOTGRO = TOTGRO + GHOSS(II) 

TOPRYL = TOlmri + ncrlit( 11) 

ToTorc = ToTore + OrccesT(II1) 

TOTDPR = TOTDSR + DSPP=C( II) 

TOTOPL Se TOIDPL + ShruET( 11) 

TOTTAN pi + TaNG( Ii) | 
TOTINT = TOTINT + INTANG(II) | 


OPCOsi 


Sorgen Il) + 





Hy 





=~ => 5 
BONDS (I) ; | XELBND( I) = 





=: ee = BONDS (Z) | 


: s 
y aan & 
—— i 
| 
=! 






* InVAST(1) * TE el 
(1) STRATE + Bods (1) 


“4 se (iiehat® » 82189) 


ot 
ed - 
ead] 


Gn aNE0(4) 





end Ae) A vtANS 
blo eae as f ae SS Ae aa = Oe O 
-XLOSLI( 3 esr 4) 
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138 


XESELG Py MSEC) = ESET) 
: vi - GAINLT(I) 


GAINLT(I)\__,|GAINLT(I) = 0.0 
sXLOSLT(J 





CPGAIN = GAINLT(I) + OTHINC(I) 

CPLOSS = XLOSLT(1I) + OTHLOS(T) 

CASH(I) = CASH(I) + DIVREC - INTray + TOTREV * CASHFT 
ACCR=C(I) = ACCREC(T) + TOTREV *« (1, — CASHFT) 

DIVPSY = DIVDND(I) » + SHARSS(I) 

XDRIL = DRILL + CASHFT 

ACCPAY(I) = ACCPAY(1) + DRILL + (1. -— C&SHFT) 

PENLTY = PSNSEL(I, 2) ~ SEN 2) + PENABD(I,2) +. PENDEP(I,2) 
REDE®M = BONDS ( I) x + TIMPAC ; of 

ACCPaAY Gy = aCCPAY(I) : PANDD(T) + Pe esata 

CASH(I) = CASH( 1) = TOPRY Lye ew eet ae 8 ei COR Wh elm oem 
OrweS(i) ~ ABDCOS(1) = HANDO GI) = CASH? =) Pah Erys 

INVeST(I) = INVEST(I) + RUQINV(I) 

BONDS(I) = col a + RHOBND(T) - RSDEEM 

ADIN = ASSETS(I) * .02 





% ORC1a¥(1)/ORBASE + 0.1 


eee eee OG 


| 4 } 


| 


ADIN = ADMIN - | 
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a ee 





pen ae Os + OPR=S(1) 
ASH(I) = CaSH(i) ~ “INV 1) + REQSND(1) + RELINS(1)-AONIN 
“T0100 = TOTRYL + DELAYR + DRILL + ToTOrc + TOTDPR + 
TOTDPL + ABSCOS(1T) 
Opi ST = TOPaev = TomoR! 
SU C2GaIN + JIVROC 


OTHEX? = INTPAY + ADMIN + EANDD(1) + OPRES(I) + CPLOSS 
HOLD = 0.85 * DIVRE 

PasiaX = Osha tae - Ter yC — OTHEXP - HOLD] - GAINLT(1) 
STATAX = olan -- TOtGne 
PYDTS&X = FTAXR * (2R5TaA = STaTsX) 









PRET. K— 
Se yie. Clee 


OTHLOS(I) = OTHLOS() + 
AB3( PRDTAX-STATAX ) 


TAXLTG = ,25 % GAINLT(TI) 

CaSn(I) = CASH(I) - STATAX - FiDTAX - TAXLTG 

NETINC(I) = PRETAX - STATAX - FHOTSX - TAXLIG + GAINLT(T) 
+ HOLD] + ae + XTEMP(1) 

RPKARN( I) = RIEAGN(I) + JOTINC(1) - PENLTY - 3IVPAY 


< 
“UIVOTE(I) me UOT A(I) = 











MQUOTE(I) = MQUOTH(I) *« (DIVBAS ~ DIVDOND(I))/DIVBaS x 
MOUOTE(I) = 3CUCTE(I) + RTEAAN(I) = HOLD2/STEaRN(I) 
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: SOLDST(1) * MQUGTE(T) 
23YCAP(1) = PRECMIP(1) 4 BiSTOK 
SH Hee + BISTOK 
HARIS(I) + SOLOST(TI) 


a ae te ee 


4 EQUITY = NETINC(I) ~ PENLTY - SIVA + SELL - BISTCx| 


CASH(I) = 0.0 









STLOAN(1I) = STLOaN(I) + RSQLNS(I) + ELE 

ASSETS(I) = CASH(I) + ACCRUC(1I) + TOTTAN + ICTINT + INVEST(TI) 
BCOK = (2AYCAP(T) + RTHARN(1))/SeA555(7) 

TOTLIB = ACCPaAt(1I) + STLOAN(I) + BONDS(I) + eaAfcaAP(I) 


+ 8TKARN(I) 








DO J=l, 
NCOPYS 





i be rman 
CIAL ola te> 
to gicnirs 





NOMTR + 7] 


; NDECKS = NOSCKS - 1 


WRITS 
P&RANIE TE: 






DO I=1,NPLAY 








whITs 


QA F 2 
OhicaAnly 


ACCOUNTING 













WRITS LASSIE, LSASE NGBLLS NPOATS NESURS, SLIPS, | 
EQAGH, TANG, INTANG, TSLECT, VCFACT ACES, GEOFAC, | 

1 een ‘i T ; \ 
Lasrac, #75, 2520 ,DZE ERO, NO, SIDE uu, S.CusT, | 
Say oS UMN OPIS 


ie 
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SUBRCUTTNE RaANONO 








SUBROULING 
Jee, SUIUL! oe 


FNGH = Ul. ICO pt 3a) 


X= PANU = SCOn 
if 

















at 








ett PAYDIRT --— AN ENGINEERTING=MANAGEMENT SIMULATION ## ## 

###*# PROGRAMED IN FORTRAN IV COMPUTOR LANGUAGE #### 
REAL INTANGe INVESTs INTRECs INIPAYs NETINCs LESFACs MQUOTE PDT 
DIMENSION BID(59892)% ACRES(30)2 IDENT(9)s LEASE(56)s LESSEE(5s20)PDT 
L»PAYCAP(5)s PENSEL (592) % RVFRSN(504) 9 ABAND(504) 2 PENRVT(592)>5 POT 


2 PENASD(5e2)s NWELLS(56) + ABDCOS(5)»s OILPKD(56)+5 GASPRD(56)s POT 
3GORINT(56} 9 NETINC(5) +s OTHINC(5}+ SOLDST(5)»s GAINLT(5)%9 XLOSLT (5) oPOT 


4 OPCOST(56)9 REVNUE(5S6}s ROYLTY(56}2 GROSS(560is (NTANG(56) » PDT 
STANG(56)% BIXNET(50)% DIVDND(5) 2 XLOSS(56}s DEPLET(56)% ACCREC(5) »PDT 
6VEPREC(56) 5 LRILCS(56)}s cuAvLEl2O)» TELCCT(56) +» RESURS(560) >» PDT 
TVCFACT (56) 5s DZERO(56)s NeLECT(59G02)s RKENEW(D oU¥92}s PENDEP(502)5 POT 
BACCPAY(5)s INVEST(5)s CASAS)» STLUAN(D}) »9 EmMPBEN( DY) s BONDS(5)> PDT 


SSHARES(5)s RTCARN(5)s MQUOTE(5} 0 REQLUNS (5) +s REUPAY(5)s9 REQVINV(S) POT 
DIMENSION OTHLOS(5)s REQSND(5)s EANDD(5) + OPRES(5)s NPDATE(50}% POT 
1 FRINGE(5)s PAY(5}% ORCARY(5)s QZERO(56)s EFQULIFE(S6)»% EUCOST(56)»5 PDT 
2 LESFAC(56)5 TIME (56) % GFOFAC(I56)»% VWELNUM(100092)+ NO(5S6)>s PDT 
3 REQFRC(594)% REQACD(594)s RIDMIN(56)s XDRILL (59492) 2 ASSETS(5)>¢ PDT 
4 PINT(56)2° VISCTY(55)s FVF (56) + REQPMP(5e94)e0 XTEMP(5) 2 REQSEC(594)7D7 


PDT 

FORMAT (12H1)} POT 
FORMAT (1H9) : POT 
FORMAT (2HO/) int Bh 
FORMAT (1HO/S/) : POT 
FORMAT (1H ) ao) 
FORMAT (246914) : POT 
FORYAT (29F4.09) POT 
FORMAT (1X +20F4.0) POT 
FORMAT (EF1Ge?7) POT 
BOSMAT -(82VC) : POT 
Pokey (7F Les ©1042) ny 
FORMAT (29748) a1) 14 
FORMAT (1X+8F19.0) POT 
GRMAT (16F5e27) ree BIS 
Bo<MaA; (1X<«i6r5¢z) nO 
FORMAT (2014) POT 
FORMAT (1Xe2906; ; a7 2) if 
FORMAT (1X s8F 1002) 22s 
FORMAT (1X9811i9) EoT 
FORMAT (1X01018) Bo 
FORMAT (8F1029) eA 
FORMAT (1Xo7F1I0eIsF1022) POT 
FORMAT (16F5.20)} PDT 
FORMAT (1Xe16F5-0) POT 
FORMAT (8F106) POT 
FORMAT (1X 08F106) PDT 
. POT 

JUMP = 0 POT 
READ (598) DRY» OIL» NDECKS PSP DTI 


READ (5912) MONTHeNYEAR sLENOTH oMESES eNCOPYS os NPLAY os i4AXOWN DLASTNE. POT 
READ (5911) FINE sOPRICE »sGPRICE sASDNET oF TAXR sSTAXR a STKFAC sVARCOS POT 


READ (5911) S3DRATE sBENFIT »sRENSAS sRLABOR sPAYBAS*DIVRAS sORRASE » PDT 
LeSTRATE POT 
READ (5911) RNUMsROYL s TERMSR s TERMSP sOVRATE sDRTANGs ORINTGsFRCCOS POT 
READ (5011) OITLALWsGASALWsDRYHC Ss CASHF T sUUOTFT sFRCFAC sACDFAC» POT 
PPEQCSFT POT 
READ (5911) PMPCOS sACDCOS »SECCOS sFRFLOW sACFLOW » PMFLOW 9 SRFLOW ®DECLNPDT 
XLNGTH = LENGTH POT 
TIMFAC = XLNGTH/12- POT 


NDEAL = 0 Sean 


OAaNOWN SS Wr = 





DO 110 I = l»NPLAY 
CASHUI)DsASSETSUT) sACCRECL I) »ACCPAWHT)>o INVEST (1) 
1 STLOAN( 1) sBONDS(1) MQUOTE(1) 


READ 


(5011) 


READ (5911) PAYCAP(1) sRTEARN( I) sSHARES(I) sORCARY(1) sOTHLOS(1) > 
1 PAY(1)>s NETINC( I)» EMPBEN(I) 
OTHINC(I) = 020 
MEOSLT(1) = Usd 
GAINET CL) = 0.0 
IDENT( I} = OU 
PENSEL( 192) = 0-20 
PENRVT (192) O20 
PENDEP(Is2} = 060 : 
ABOCOS(I) = 0.0 

110 PENARD (152) = 0.0 
READ (5el1l8)((LESSEE( I 9K )s K=1920) » IT=LeNPLAY) 
READ (5918) LEASE 
REAM (5518) NWELLS 
READ (5918) NPNDATE 
READ (5911) RESORS 
READ (5927) EQLIFE 
READ (5927) FQAGE - 
READ (5911) TANG 
REAM (5911) INTANG 
READ (5918) !ELECT 
READ (5916) VCFACT 
READ (5011) ACRES 
READ (5916) GEGFAC 
READ (501!) LESFAC 
READ (5911) TiMe 
READ (5511) @ZERO 
READ (5929) DZE20 
READ (5518) NO 
REAM (5925) RIDMIN ‘ 
READ (569) (WELNUMO151)*° I=191000) 
READ (5916) (WELNUM(1s2)s T=1s1000) 
READ (5925) EQCOST 
READ (5925) PINT 
READ (5911) VISCTY 
READ (5916) FVF 
READ (5925) GORINT 

101 WRITE (6091) 
WRITE(6s8) DRY» OIL» NDECKS 


WRITE (6922) 
WRITE (6921 } 
WRITE( 6921) 
1 STRATE 

WRITE(6521) 
WRITE(65921) 
PeeQcsrr 

WMRITE(6921) 
00 102 I = 
WRITE(6526) 


1 PAY(I}>» 


MONTH sNYEAR sLENGOTH »sMESES sNCOPYS sNPLAY sMAXOWN sLASTNM 
FINE sOPRICE »GPRITE sABONFT oF TAXR es STAXR es STKFAC sVARCOS 


RATEBD eo dENF IT »sBENBAS sRLABOR sPAYBAS sDIVBAS »ORBASE » 


RNUM sROYL » TERMSR » TERMSP sDVRATE sDRTANGsDRINTG sFRCCOS 


OILALW »GASALW 9DRYHCS 9 CASHE T sQUOTET sFRCFAC sACUFAC >» 


POT 
PDT 


POT 
Pol 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
PNT 
PDT 
POT 
PDT 
POT 
POT 
es PLA 
PDT 
POT 
PDT: 
POT 
POT 
Pot 
POT 
PDT 
PDT 
POT 
PDT 
POT 
POT 
Poa 
POT 
POT 
POT 
PCT 
POT 
PDT 


PMPCOS »sACDCOS» SECCOS » FRFLOW sACFLOW » PMFLOW » SRFLOW sDECLNPDT 


LsNPLAY 


CASH(T}eASSETS(1) sACCREC(I) sACCPAY(T) os INVEST (I) s 
1 STLOAN( 1) sBONDS(T} sMQUOTE(T) 
102 WRITE(6926) FAYCAP(1) sRTEARN(I?}) sSHARES(1I) sORCARY( I} s0THLOS(I)> 


NETINC(I) » 
WRITE(Os1IV((LESSEE(T 9K)» 


WRITE (6919) LEASE 


WRITE(6919) NWELLS 


WRITE(6919) NPDATE 
WRITE(6915) RESORS 


EMPREN(T) 


K=1920) » [T=lsNPLAY) 


POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 


108 
109 
1llo 
ri 
Li? 
113 
114 
| 
116 
1 Br 


195 





WRITE(Gs26) EQLTIFE FOIo lis 


WRITE(6528) EGAGE POT 119 
WRITE(6515) TANG POT 120 
WRITE (6091) POT 121 
WRITE(6915) INTANG POT 122 
WRITE(6919) TFLECT POT 123 
WRITE(6517) VCFACT PDT 124 
WRITE(6%15) ACRES POT 125 
WRITE(6017) GEOFAC PDT 126 
WRITE(6921) LESFAC PDT 127 
WRITE(6021) TIME POT 128 
WRITE(6921) QZERO - PDT 129 
WRITE(6s3U) DZERO PDT -130 
WRITE(6%919) NO PDT 131 
WRITE(6915) BINMIN PDT 132 
WRITE 601) PDT 133 
WRITE(691U) (wELNUM(Io1)* [=lsl000) POT 134 
WRITE (601) 5 PDT 135 
WVRITE(6917) CWELNUMETs2)% T=1+1000) : PDI 136 
WRITE (691) POT 137 
WRITE(6215) FQCOST POT 138 
WRITE( 6815) PINT . POT 135 
WRITE(0s21) VISCTY PDT !40 
ARITE(6017) FVE . POT 141 
WRITE (6915) GORINT FDOT 142 
IF (JUMP .GTe)} GO TA 999 PDT 143 
PES CONTINUE PDT 144 
WRITF (691) PDT 145 
BO 129 {| = 1956 PDT 146 
GASPRNA(T) = 5.49 . POT 147 
REVNUEI(I) = 9.20 PDT 148 
ROYLTY(I) = Gee PDT 149 
GROSS(i) = 9.20 PDT 150 
OPCOSTt(!I) = V.0 POT 151 
DEPREC(I) = ved PDT 152 
DEPLET(I) = G.0 PDI cls3 
meeNcT (1) = Oel : PDT 154 
DRILCS(I) = 020 PDT 155 
XLOSS(I) = 069 PDT 156 
DEVI VGFAGCTIT) eEQeVU eV) VCFACT(I) = VARCOS POT 157 
120 CONTINUE POT 158 
C #8#**# READ IN PLAYER DECISIONS. PDT 159 
DD 130 I = LlsNPLAY PDT 160 
READ (5011) DIVONDET) >» REGLNS(IT)»s REGBND(T)»s REGINV(I)»s SOLDSTt(I) sPDT 161 
1 REQPAY( 1)» OPRESt(I)s FRINGECT) PDT 162 
WRITE(6926) DIVOND(T) »s REQUNS( IT)» REQSBND(I)s REQINVII)» SOLDSTtI) »PDT 163 
1 REQPAY( 1)» OPRES(I)s FRINGECI) - PDT 164 
READ (5e11) (RIOT stJel)s Y=198) PDT 165 
WRITE(6915) (RID Teel)» J=]1 08) . POT 166 
READ (Sell) (RID(TeJ92)5 J=1598) POT 167 
WRITE(6915) (RIDE Tste2)o J=198) PDT 168 
READ (Sell) (RVERSNITsJ) 9 J=l94)9 (AQRAND( I 9J) 9 J=] 94) PDT 169 
WRITE(6915) (RVERSN(TsJ) 29 J=leS)s (ARANDUTsJ) « J=1 +4) PDT 170 
READ (5911) (RENEWED eJSJol1) 9 J=198) PDT 171 
WRITE(6015) CRENEWC IT stolls J=158) PDT 172 
READ (de11) UCRENEWUI sJe2)9 J=1+8) ; PDT 173 
WRITE(6915) (RENEW Tets2)5 J=198) POT 174 
READ (5912) (NELECTIIsJ91) sJ=198) POT 175 
WRITE(6922) (NELECTUI »Js1) sJ=1 58) POT 176 


READ (5012) (NELECTUI»Jo2) 2J=198) POT 177 





WRITE(6s22) (NELEC TCL sJe2) sJ=1 98) 
READ (5925) (XORILL¢I I eJel) s yal 8 
WRITE(6915) (XDRILLITeJol)s yalo8 
READ (5225) (XDRILL( 1 *J92)2 Jl o8 
WRITE(6015) (XDRILLE 19392) 2 J=los 
READ (5925) (REQFRCIIT J) sJ=1 04) » 

WRITE(6215) (REQFRCOIL sd) sU=] 04) 

READ (5925) (REOPHPUI IT 2) sJ=] 04) 9 

WRITE(6915) (REUPHPIT eJ) sJ=1 04) 2 

Metre SOlinebs0) GO TO: 130 

IF (REOLNSCIT) -LTeG%-1) GO TO 127 


CRATIO = (CASH(T) + ACCRECET)IS(IACCPAY(T) + STLOAN(I)) 
IF (CRATIOeLE e260) RFOLNS( IT) = 020 
IF (CRATIOeLE*2e0) GO TO 129 
TEMP = (CASH(T) + ACCREC(IT) - 260 * ACCPAY(1T))/2-0 - STLOAN(I) 
nee CRE OLNS( I )eLSeTEMP) GO TO 129 
REOLNS(I) = TRMP 
29st C(REQLNS(IT!.«LTs(<Uel)) GC TO 128 
GO TO 129 
128 STLOAN( IT) = STLOAN(E) + REOLNSCT) 
CASH(I) = CASH(T) + REQLNS(1) 
REQLNS(I) = O20 : 


129 TEMP = XLNGTH/TERMSR 
IF (TEMP .GTel eV) TEMP = 1.0 


) 
) 
) 
) 
(REVGACD( 1 »J) sJ=1] 94) 
(REGACDUT »J) sya] 04) 
(REGSECE I 29J) eJ=1 94) 
(REUSEC( Ee) sJa1 04) 


S@xcothtt) = CASH(I) + ACCRFC(I}) * TEMP 
meexcGt(i} = ACCREC(I) * (1e0 = TEMP) 


TEMP = XLNGTH/TERMSP 
IF (TEMP eGTeleO) TEMP = 120 


GASH(T) = CASH(I) = ACCPAY(I) * TEMP 
ACCOAY(IT) = ACCPAY(T) * (12eU - TEMP) 
ALTE4P (1) = OTHLOS(T) 

HI0 CONTINUE 
Il] = 0 


meee CHoCK TO SEE IF LEASE IS FOR SALE. 


Booel. = 11 +1 
fet vi.Gr.s5o) GO TO 199 
IF (LEASE CIT) e-GTeV) GO TO 200 


GO TO 189 
Zoo TEVe = LEASE(IT) 
216 NCHECK = 9 
NEQUAL = O a 
DO 201 I = 1l»NPLAY 
DO 202 J = 1298 


#*#**¥ CHECK PLAYERS SIDS FOR BIDS ON THE FIRST AVAILABLE LEASE. 


IF (RIDCTsJel)eLTeO0V1L) GO TO 202 


IF (BID(C TL estel) cE Qe TEMP CANDeNCHECK eEQe0) GO TO 224 


IF (RID(1leJ91)¢EO« TEMP) GO TO 203 
GO TO 202 


224 IF (ALOMIN(C IL) -GTeRID(19592)) GO TO 201 


206 HOLD? = BID( I sJ22) 
NEQUAL = 1 
IMFNT(1) = I 
NCHECK = 1 
GO TO 201 


203 IF (BID( 1 sJ92)-eGTeHOLD2) GO TO 206 


IF (BID(C EsJe2)¢NE*HOLD2) GO TO 20 
NEOUAL = NEQUAL + 1 
IDENT(NEQUAL) = I 
GO TO 201 
202 CONTINUE 


1 
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POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
es BEV! 
POT 
EDT; 
POT 
PDT 
POT 
POT 
Pay 
POT 
eo 
BoM 
POT 
ODT 
POT 
Poy 


POT 


Foal 
POT 
Pot 
POT 
POW 
POT 
al 
lb) I 
POT 
PDT 
POT 
Pot 
POT 
POT 
PDT 
POT 
POT 
POT 
LDP 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 


223 
224 
Zao 
226 
22%, 
228 
220 
230 
231 
232 
233 
234 
235 
236 


Oa 





201 CONTINUE 
PE CNEQUAL.EGsel) GO TO 210 
IF (NEQUAL eFQCOeANDeNDEAL eFQeU} GO TO 169 
TIF (NEQUAL cEQeO eANDeNNEAL CGE et) GO TO 199 
209 CALL RANDNO (RNUM) 


X = 0.2U 

2 = NEQUAL 
Y=1.0/2 
tT = Y 


DO 207 TIT = lLeNEQUAL © 
IF (RNUM.GTeXeANDCRNUM.LESY) GO TO 208 
xX Y 
Y Y+f?tT 
IF (¥eGEele9) Y = 127 
207 CONTINUE 
208 [ = IDENT(T) 
214 CONTINUE 
DC 21) J = LleMAXOWN 
MELE SoeE (ls J1s£O0.0) GO TO 212 
211 CONTINUE 
mee LESSEE TIT «J) = 
LEASE(II; = 0 
GO TO 213 
Plo. = LYENT( 1) 
GO TO 214 
mgr Ghoh( I) = CASH(!} = HOLD2 * CASHFT 
ACCPAY(I) = ACCOEAY(I) + HOLD2 * (le — CASHFT) 
TF (NDE&LeGT eI) GO TO 220 : 
GO TO 271 
220 HILO] = TANG(IT) + INTANG(TE) 
DE AOL D2 GT eHOLD! eA eMESES=NPOATEC I] ) eOTe6) GAINLTINDEAL) 
PeGeini? £4OSAL) = HOLD2 = ROLG) 
Ween MOLE ZeLT eHOLD] eANUe MESES—"IPCATECII ) eGies) XLOSLT{ NDGAL) 
Mer eost.; !NOS4b) + HOLOL = HOLD? 
TF (MESES = NPDATE (IT el Ee be AND eHOLD: -GTeRCLO2) 


TEMP 


PAEGSLT(NDEAL) = XLOSLI(NUDEAL) = mCLO2 + HOLD] 

SF (MESES = NPDATECTE) eh oe be ANDeHOLDI eLTeHOLD2) 
1 OTHINC(NDEAL? = CTHINC(NDEAL) + HOLD2 - ROLD1 

GeoR(NOSAL) = CASHCNOZAL) + HKOLD2Z * CASHFT 

Reence(.CEAL) = ACCREC(NDEAL) * HCLD2 * (ie-= CASHFT } 

221 TF (NWELLO CIT) eNECOeANDENDEALCEQ20) EFEQCOST(II) = HOLD2 * EQCSFT 

Peet NOcaLeEQe¥) "ANG(IT) = EQCOSTIIT) 

NPDATE( II) = MFSES + 1 

INTANG(IE) = HOLD2 = TANG(IT) 


HOLD1 = 0-0 
HOLD2 = 0e0- 
IF (NDEALe¢GTeO) GO TO 199 
GO TO 189 
199 CONTINUE 
NDEAL = 0 
DO 231 I = lL»sNPLAY 
DO 231 J = 198 
IF (BID( Isdol) el Te(-0-01)) GO TO 233 
GO TO 231 
233 II = -BID(IsJs1) 
DO 234 K = lsMAXOWN 
Dic lielOseCESSEE( IT «K)) GO TO 235 
234 CONTINUE 
GO TO 236 
235 BIOMIN(II) = RBID( IsJs2) 


POT 
PDT 
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OT 
POT 
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POT 
POT 
POT 
PDT 
PDT 
PDT 
POT 
28 ef 
PDT 
POT 
POT 
PDT 
PDT 
PDT 
PDT 
POT 


isos 


PDT 
PDT 
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PDT 
PDT 
PDT 
PDT 
PDT 
POT 
POT 
PDT 
POT 


Cot 
238 
239 
240 
241 
242 
243 
244 
245 
240 
247 
248 
249 
250 
25 
Zee 
253 
254 
255 
225 
257 
295 
259 
260 


z 6}; 


262 
263 
204 
265 
206 
Zo 
2ou 
269 
AFLG 
271 
272 
23 
Th 
275 
276 
Paty 4 


a 


Pat won 


ea? 
250 
241 
282 
283 
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285 
286 
287 
288 
249 
290 
291 
2a2 
293 
294 
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296 


8 





236 


el 


= # 


244 


245 


243 


24) 
+t 


254 


222 
251 


BESSEECIsK) = 0 

TEvVe = [1 

BID(I»+Jo1) = O.V 

AID(IsJ22) = 0.0 

NDOEAL = I 

GO TO 216 

PENSEL( I 22) = PENSEL( 122) + FINE 
PENSEL( Isl) = -BID(1sJ91]) 
BID(IsJel) = O29 

CONTINUE " 

=* LEASE REVERSION. 

DO 24] I = LsNPLAY 

DO 241 J = 194 

TR URVERSNU! sJ) «LT-U.0]) GO TO 241 
IT = 2VERSM( sd) 

IF (NWELLSCUIIL)-GT.O) GO TO 24] 

DO 244 K = LoeMAXOYVN 

Pelee SSEE( lL «K).=EQe1!) GO TO 245 
CONTINUE 

GO TO 2423 

Begs 1 iy = It 

RveR owt is !) = 020 

Peet isk} = 0 

Pe TI YESES-NPDA~ EL Li dehieb) XLOSLITUI) = XEOSE*IT) © INTANGOTI) 
eee oe SNP OntaeC lL 2Gl eS) ALOSET £1) = KUOSE.(1) + INTANG(T YS 
Meck li) = Jed : 
GO ™CG 241 

Seer tle) = PENRVYIC Is?) + FINE . 
Peeve (oe. lS A VERGN( ie) 
eee S Clea) = Det 

eu 1a NUE 
4% Beno] sh ANCONVEN, « 

Boe7>*: | = JsNPrLaAv 

DD) 257 J = 194 

Meee OC Le J} el 5 ede.) GO TOG 251 
Il = ARANDCT ed: 

DO 253 < = LeMAADYN 

NICS OODLE 418K yee Geii) OO TO 254 
Corea NUE 

PeNASD( 103.) = ASANDil oJ) 
PERAdDilese2) = PCNASDCis2) © FINE 
Ga) 10 251 

WELLS = AWELLS(I7) 


ASDCOS(1T) = ARDCOS(I) + WELLS * ABONFT 

IF (MESES-—NPDATE( II)e«LE«6) OTHLOS(L) = OTHLOS(I) + INTANGITT} 
1 + TANG(IT) 

IF (MESES=NPDATE( iI) e¢GTe6) XLOSLT(!) = XLOSLT(I) + INTANG(IT) 
1 + TANG(IT) 

INTANG(IT) = 0-9 

TANGOTI)D = OC 

LESSEE(I sk) = 0 

NWELLS(ITT) = VU 

LESFAC(IIT) = 029 

CONTINUE 

CONTINUE 

TEMP = 0.20 

HOLDI = 0-20 

HOLD2 = 0.20 

DO 300 I = IsNPLAY 

IF (RENFITeGTe9-01) FRINGECI) = RENFIT 
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297 
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30] 
302 
303 
304 
305 
306 
307 
308 
309 
310 
art 
S12 
523 
314 
315 
316 
an 

318 
gig 
o20 
32} 


5228 


423 
324 
i ae 
B26 
327 
323 
Bes 2) 
230 
S38 
532 
33% 
334 
339 
536 
a3 
333 
339 
340 
34) 
342 
343 
5344 
345 
346 
347 
348 
349 
350 
351 
352 
395 
354 
353 
356 





300 


310 


801 


802 


630 


DE SUREQPAY (1) 6GTe le l*PAYONS MRE OP AT (1) om lee 
IF (REQPAY( 1) -LTeO.9*PAYBAS) REQPAY( 1) = 029 
IF (RLABOR-GTeO0el) REQPAY(I) = RLABOR 

IF (FRINGEC IT) eG e2eU*BENBAS) FRINGE(I) = 220 
IF (REQPAY( 1) e¢GTeUel) PAY(I) = REQPAY(1) 

[IF (FRINGE( 1) e¢GTeO0e0L) EMPBEN( I) = FRINGE(1) 
TEMP = TEMP + PAY(T) 

NETINC( I) = NETINC(I) * XULNGTH 


HOLD] = HOLD] + NETINC(1) 
HOLD2 = HOLD2 + EMPBEN(1) 
X = NPLAY 

PAYAVG = TEMP/X 

BENAVG = HOLD2/X 

AVGINC = HOLD1/X 

SALE = 0.0 

DO 310 I = 1956 

Meee ASE(!1)eGT.O0} SALE = SALE + 1.0 
CONTINUE 

MONTH = MONTH + LENGTH - 1 
IF (MONTHeGTe12) GO TO 801 


* PAYBAS 
* PAYBAS 


* BENBAS 


GO TO 802 

MONTH = MONTH —- 12 

NYEAR = NYCAR + 1 

ITEMP = MESFS 

DO 601 I = l»NPLAY 

ISTRIK = 0 

SPRIKE = (100 — PAY(I)/PAYAVG) + {1-0 - PAY(I) /PAYBAS) 


Slee = (1060 — EMPBENCI)/BENAVG) + (1-0 = EMPBEN(!)/BENBAS) 


Peto tuKFACeLEe0eVU} STIKFAC = 0-001 

Sree = (STRIKE + STRIK2) * STKFAC 

Memo hiki <E ol} eOCe0) STRIKE 0.0 

Ieee otR IKE eGTel-S) STRIKE 1-0 

CALL RANONO(RNUM) | 

IF (RNUMeGT eV eG eANDeRNUMeLTeSTRIKE) ISTRIK = 
OWN = 92D 

EMERG = 020 


. TOTTAN = U.0 
TOTINT = Ge) 
DELAYR = 0e2V 
ORILL = 0.0 
Tome yi = Ue 
TOTOPC = 0-20 
TOTDPR = 0.0 
TOTDPL = 026 
TOTRES = 020 
TOTGRO = Ve 
TOTGAS = 0.0 
ADD = 0.0 
OTHEXP = Ue0 
KOUNT = O 
FUDGE = 0.0 
TOTHRS = 0.0 
WRITE (691) 


603 


DO 602 J = 1sMAXOWN 

IF (LESSEE(I9J)eGTeO)} GO TO 603 
GO TO 602 

If = LESSEE I »J) 

OWN = OWN + 120 


1 


200 
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PDT 
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“PDT 
POT 
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370 
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376 
377 


379 
380 
381 
382 
303 
354 
385 
386 
387 
388 
369 
390 
391 
392 
393 
394 
395 
396 
397 


Boo. 
400 
401 
402 
403 
404 
4.05 
406 
407 
408 
409 
410 
41] 
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413 
414 
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= ae a 


648 
680 


684 
683 


S33 


650 


657 


636 


651 


TEMP = II 
MeSES = ITEMP 
DOeG32 JJ = 1lslENGTH 


IF (NWELLSCI1)26Q.0) 


GO 06.3.3 


IF (GOReLTeGORINT(II)*0U269) GOR = 


OILFAC = OILFAC * 30.6 
PRDOIL = C.0 

PRDGAS = 020 

DO 683 K = 121000 


IF (WELNUM(Ks1)e¢EQ.eTEMP)GO TO 684 
GO TOC 683 


Memeo STRIK «EQ. leANDetIJel Ted) GO TO 632 

OIL] = QZERO(II)/EXP(OZERO(II) * TIMEC(II)) 

OIL2 = QZERO(II)/EXP(DZERO( II) * (TIMECII) + 1420)) 

Oller AG = (OILL + OI1L2)/2-0 

DO 648 K = 1394 

IF (REQFRC(IsK)eEQeTEMP) GO TO 633 

IF (REQACD(IsK}eEQe TEMP) GO TO 633 

IF (REQPMP(1sK)eEQeTEMP) GO TO 690 

IF (REQSEC(IsK)eEQe TEMP) GO TO 691 

CONT INUE , 

CONTINUE 

IF (OILFACeLT~e0.01) GO TO 616 

GFAC = GORINT(II)/1U. 

GORL= (le + SIN(36¢141659 * (36/26 + TIMEC(II)/GFAC))) * 
1 Q@ZERO(II) * (10. /OZEROCII})/OIL1 + GO-+NT(II) 

GOR2Z= (le + SIN(3¢141659 * (36/26 + (TIMEC( II) + 1¢0)/GFAC))) 
1 QZERO(II) * (106. /DZERO(II))/0IL2 + GORINTC(IT) 

GOR = (GOR] + GOR2)/2.0 


GORINT(II) * 009 


PRDOIL = PROOIL + OILFAC * WELNUM(K92) 

GONT INUF 

HOLA2 = PRDOTIL 

X = NWELLSCIT) : 

IF (PROOILe¢GTeX*OITLALW) PRDOIL = X * OILALW 

PROGAS = PRDOIL * GOR * 2001 . 

IF (PRDGAS eGT eX*GASALW) PRDOIL = GASALW * X/(GOR * .001) 
PROGAS = PRDVUIL * GOR * eU0l 

OMereOtIl) = CILPRoO(II) + PRDOIL 

GAS5PRD(TI) = GASPRD(II) + PRDGAS 

TIME@L I) = TIMECII) + PROOIL/HOLD2 

CONT [NUE 

DO 650 *% = i98 

KK = K 

IF (XORILL CT sKolbeFQe TEMPeCANDeNWELLS(II)¢EQe0) GO TO 658 


IF (XORTLL 19K 91) eEQeTEMPCANDeXDRILLII 29K 92) e¢GTeO0l) GO TO 651 


CONTINUE 
IF (NWELLSC(I1L)-eGTeO) GO TO 676 
Pee @ee SE S—-NPOATEC II) eGTel2) GO TO 657 


IF (MESES - NPDATE(II)-«GT«60) GO TO 636 
GO TO 621 

DELAYR = DELAYR * ACRES(1I1I)/12-0 

GO TO 621 

LEASE( II) = II! 

LESSEE(I s/s) = 0 

XLOSLT(C II) = XLOSLT(II) + INTANG(IT) 
INTANG(IT) = 020 

GO TO 621 

KOUNT = KOUNT + 1 

IF (KOUNTeEQe1) WRITE (691100) I 

IF (JJeEQel) WRITE (651101) II 


* 
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459 
460 
461 
462 
463 
464 
465 
4651 
466 
467 
4680 
4681 
4682 
4683 
4684 
4685 
469 
470 
47] 





634 


635 


652 


658 


659 


660 


661 
662 


663 


IF (XDRILL (1K 


9 92 eGt e4e0) GO TO 634 
N = XDORILL 19K 92 
 —— 


) 
) 
0.0 


XMRILL C1 9K 92 

GO TO 635. 

N= 4 

Peet iekKs2) = XDRILUC1>Ke2) — 4,0 
CONTINUE 


DO 652 K = I>5N 

CALL RANDNO(RNUM) 

Petes SFACCI1)«LT.0.0U01) GO TO 659 

IF (LESFACCII)-RNUMeLE2060) RNUM = LESFAC(II) 


WELNUM(LASTNMs1) = II 
WELNUM(LASTNMs2) = RNUM 
BeorAGt(ii) = LESFAC(II) - RNUM 
NWELLSCTI) = NWELLSCII) + 1 


HOLN2 = QZFEROCII) ® RNUM ; 
OILFAC = (HOLD2 - HOLD2/EXP(DZERO(II)))/2.0 


Sime nOLLFAC/((PINT(I1) - PINT(LI) /EXPCDOZERO(II) * 1.4))/2-0) 
WRITE (601114) JJs Ks OllLs HOLD2s PINT(II)»s PI 

DRILCS(I1I) = DRILCS(II) + DRINTG 

CASH(1) = CASH( 1) - CASHFT * DRTANG 

ACCPAY(1) = ACCPAY(I) + (120 - CASHFT) * DRTANG 

TANG(IT) = TANGCTLT) + DRTANG 

EQCOST(E1) = EQCOSTI(II) + DRTANG 


LASTNY = LASTNM + 1 

IF (NOCTI)LT240) EANDDET) 
IF (NOCTIT)eLT225) EANDD(T) 
CONTINUE 

SOnT0 676 

KOUNT = KOUNT + 1 

IF (KOUNTeFQel) WRITE (651100). I 
TeeeeeerGel) WRITE (691101) II 
ADRILL (19K 92) = XDRILL( 19K 92) - 120 
CALL RANDNOCRNUM) 

IF (RNUM.GTeGEOFAC(II)) GO TO 659 
GO TO 660 

GEOFAC(II) = 020 

HOLD2 = 0.0 

IF (NWELLS(1I1)2EQ.0) K = 1 

WRITE (6591103-) JJs Ko DRY» HOLD2 


EANDD(I) + FRCCOS 
EANDD(I) + PMPCOS 


EANDD{(I) = EANDD(I) + ORYHCS 
XMNRILL (1 sKKol) = 020 
XMDRILL (I sKKs2) = 0.0 

IF (NWELLS(II)-GTeO0) GO TO 676 
GO TO 621 
X = 0.0 

Ww = 0.0 


CALL RANDNO(RNUM) 

DO 661 K = 199 

a W + FLOAT(K) 

Y W/45 6 

IF (RNUMeGT eXeANDeRNUMeLE*Y) GO TO 662 
x Y 

Go TO 616 

CALL RANDNO(RNUM) 

GO TO (66336645665 1666 s667 3668 16699670 36/1) 9K 
CALL RANDNO(RNUM) 

IF (RNUMeLT e025) GO TO 663 

RESORS(II) = RNUM #® 164600006 
LESFAC(II) = RESORS(II) .* «000002 


202 


POT 
POT 
POT 
PDT 
POT 
PDT 
POT 
POT 
POT 
PDT 
PDT 
PDT 
POT 
it 
POT 
POT 
POT 
lO) 
POT 
ED 
Ppa 
PDT 
POT 
POT 
Ed 
POT 
POT 
PDT 
PDT 
PDT 
POT 
POT 
PDT 
POT 
POT 
ei D) 
PD 
POT 
POT 
POT 
PDT 
POT 
PDT 
= |B) 
PDT 
PDT 
POT 
POT 
POT 
PDT 
POT 
POT 
PDT 
PDT 
POT 
PDT 
POT 
PDT 
PDT 
POT 


472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
453 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 





664 


665 


666 


667 


668 


669 


670 


671 


DZERO(I1) 
QZERO(IT) 
PINT(IT) 
FVF(II) = 1 
GO TO 675 
RESORS(II) 
LESFAC(I1) 
DOZERO(II) = 
QZFRO( II) = 
PINT(II) = 
FVF(IIT) = 1 
GO TO 675 
RESORS(I1) 
BESFAC(II) 
DZFERO( IT) 
QOZERO( II) 
PINT(IT) = 
FYF(II) = 1 
GO TO 675 
RESORS(IT) 
LESFAC(IT) 
OZERO(TT) 
QOZERO(II) 
PINT(IT) = 
FVF(II) = 1 
GO TO 675 
RESORS(11) 
LESFAC(IT) 
DZERO( IT) 
QZFRO(IT) 
PINT(II) = 
FVF(IIT) = 1 
GO TO 675 
RESORS(1I1) 
LESFAC(ITI) 
DZERO(II) = 
Q@ZERO(II) = 
PINT(IIT) = 
FVF(II) = 1 
GO TO 675 
RESORS(IT) 
LESFAC(IT) 
OZERO( II) = 
Q@ZERO(II) = 
PINT(II) = 
FVF(II) = 1 
GO TO 675 
RESORS(II) 
LESFAC(ITI) 
DZERO(I1) 
QZERO(II) 
PINT(II) = 
FVF(II) = 1 
GO TO 675 
RESORS(II) 
LESFAC(IT) 
DZERO(I1) = 
QOZERO( II) = 
PINT(II) = 
FVF(IIT) = 1 


0.033333 

le/eO000UU4 * DZERO(11)/2995 
1U00~. + RNUM #* 4OOO,. 

el + RNUM * 64 


= (263- + RNUM * 560.) * 10000. 
= RESORS(II) * «000003 

0.034167 
Le/eO090006 * DZERO(11I)72995 
1000. + RNUM * 40U00. 

el + RNUM * 04 


(12Ue + RNUM * 1166) * 1l0U00, 
RESORS(II) * eO0000U6 
0.2935 
Lle/e00U0U12 * DZFERO(11I)/.995 
1000. + RNUM * 4000.6 
el + RNUM * 24 


(5824 + RNUM * 61-6) * 10000, 
RESORS(II) * «000009 
0.035833 : 
Le/eO0v0U18 * DZERO(II)/-995 
1U00~ + RNUM * 4000. 
el + RNUM * 24 


= (41.62 + RNUM * 17¢2) * 10000. 
= RFSORS(II) * 2000012 

0.036667 

1¢/29900024 * DZERO(II)/.995 
1000. + RNUM * 4000. 

ol + RNUM * eS 


(17615 + RNUM * 242605) * 10000. 


= RESORS(1I) * «0000137 
0.0375 
le/e0000274 * DZERO(II)/-995 

1000. + RNUM * 4000. 

el + RNUM * 64 


(10.3 + RNUM * 7e12) * 10000. 
RESORS(II) * e0000256 
0.038333 
1e-/20000512 * DZERO(II)/.-995 
10004 + RNUM * 40006 
el + RNUM * 64 


= (3462 + RNUM * 7el) * 100006 
= RESORS(II) * e000035 
0.039167 

le/e000070 * DZERO(I1)72¢995 
100068 + RNUM * 4000-6 

el + RNUM * 64 


= (1-¢76 + RNUM * 1444) * 1O00CO. 
= RESORS(II) * «00008 

0.04% 

1e/-00016 * DZEROCII)/-995 
10004 + RNUM * GOOU. 

el + RNUM * e¢4 


203 


POT 
POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
PDT 
PDT 


PDT 
PDT 
PDT 
POT 
PDT 
PDT 
PDT 
PDT 
PDT 


pee BU 


aapRe 
PDT 


PDitt 


PDT 
POT 
POT 


PDT 


PDT 
POT 
POT 
PDT 
POT 


PP DT 


PDT 
PDT 
PDT 
POT 
PDT 
POT 
PDT 
PDT 
POT 
PDT 
POT 
PDT 
POT 
PDT 
POT 
POT 
PDT 
POT 
POT 
PDT 
POT 


“PDT 


POT 
PDT 
POT 


580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
a9 





675 


672 


673 


674 


676 


677 


Seo 


687 


686 


CALL RANONO(RNUM) 
WELNUM(LASTNMel) = 
WELNUM{LASTNMos2) = 
LASTNM = LASTNM + 1 
LESFAC(II) = LCESFAC(II) = RNUM 

K = | 

HOLD2 = QZERO{(II) *® RNUM 

OILFAC = (HOLD2 - HOLD2/EXP(OZERO(II)))/2.0 

PI = OILFAC/((PINT(ILT) - PINT(IT) /EXP(OZERO(II) * 164))/2¢0) 
CALL RANONO(CRNUM) 

VISCTY(IIT) = Oel + 2Ue * RNUM 

CALL RANUNO(RAUSA) 

GORINT(II) = LOU00. * RNUM 

PAYOUT = 7.2ud * PI/(VISCTY(I}) * FVF(IIT) * 7.6) 

IF (PAYOUT eLT eUe JD eANDeVISCTY( II} ¢GTe2e0)} GO TO 673 

GO TO 674 

VISCTY(II)D = VISCTY(IT) = e1 

GO TO 672 


II 
RNUM 


ARITE (691109) JIsKsOIL sHOLD29PINT(II LT) oPIsVISCTY( IIT) sFVFI(IIT) 


NWELLS(ITI) = 1 

DRILCS(II) = ORILCSCII) + ORINTG 

CASAC T) = CASH(T) - CASHFT * DRTANG 

ACCPAY(IT) = ACCPAY(IT) + (12e0 - CASHFT) * DRTANG 
TANG(IL) = TANG(CLIIT: + DRTANG 


EQGGOS" Ii Il) = EGEOSTIII}) + DRIANG 
ANAL LL OU EL ) 
Bower «££ = sh 


Hee ReaVeRGI 3K} 20. "Ese GY 10-565 

Peo Sr QAC D164) eEQ.T EMP) GO TO 646 

CONTIN & 

OO TC 63? 

mrege Gl 30.) = ibe® 

Hees o sy ites JeOrne NOULL.NEes J) GO 10 647 
MOU by) = Ot 
CAI ANN Fal ao 


- 5 


x 


nN ~- 
Be 7, Ses 


i 
IF CONUi et «aS ee Od TO of7 
MeexUC3 1) = oe aciili ® FeFLOe . 
REeRGi tf = e2ZeReg( tl) * DECLN 


22k =~ FRCCOS 

KOUN. = KGUm™ «+ } 

Peet COUN; este c) WRITE 06s1 100) I 
MQVUITE <6eltiIV4) 24 

Rite (Gelivol Xe 2 


GO TO 631 
CANDO(C I) = EANDDOCT) + FRCCOS 
KOUNT = KOUNT + 1 ’ 


IF (KOUNTecUel) wRITE (6s11uU0) I 
#Rite (691104) Ti 

WRITE (6911190) FRCCOS 

GO TO 632 

REQACH( Lok) = 929. 

IF (NO(I IT} e¢LEe«39) GO TO 688 
NOCII) = NOC(II) =— JO 

CALL RANDAO(RNUM) 

IF (RNUM.LTe¢ACDFAC) GO TO 688 
QOZERO(II) = QZFRO(II) * ACFLOW 
OZERO(II) = OZERO(II) * DECLN 
Z2= X * ACDCOS 

KOUNT = KOUNT + 1 

IF (KOUNT-eEQ-1) WRITE (691100) I 


POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
PDT 
POT 
POT 
PDT 
POT 
PDT 
EDT 
PDT 
POT 
PDT 
PDT 
POT 
POT 
PDT 
PDT 
el Dis 
PO? 
PDi 
PAD 


PDT; 


[nT 
POT 
PDT 


rn Ff 
dt 


POT 
Por 
PDT 
PoT 
PDT 
POT 
POT 
oO 
POT 
POT 
PDT 
POT 
PDT 
PDT 
POT 
POT 
PDT 
POT 
PDT 
PDT 
POT 
POT 
PoT 
PoT 
POT 
PDT 
POT 
POT 


20h, 


592 
§93 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
G04 
605 
606 
607 
608 
609 
610 
611 
olez 
G3 
ols 
6.5 
616 
Sa 7 
eis! 
o1l9 
§20 
Sa 
622 
623 
624 
625 
520 
627 
526 
O29 
639 
631 
og 
33 
634 
632 
636 
637 
636 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 





688 


690 


691 


= | 


647 


WRITE (691106) I 
WRITE (691107) X 
GO TO 631 
EANDD( I) = EANDD( IT) + ACDCOS 
KOUNT = KOUNT + 1 

IF [KOUNTeEQe]1) WRITE (691100) I 
WRITE (691106) TI 

WRITE (651111) ACDCOS 

GO TO 632. 

REQPMPIIsK) = 020 

IF [OILFACeGEeOILALW) GO TO 632 
IF INOCI I) eLEel15) GO TO 632 
QZERO( II) = QZERO( II) * PMFLOW 
DZERO( II) = OZEROC(IIT) * DECLN 
NOC(IT) = 15 

Z =X * PMPCOS 

VCFACT(II) = VCFACT(IT) #* lel 
KOUNT = KOUNT + 1 

IF (KOUNT»etQel) WRITE (631100) I 
WRITE (6esll1l12) IIs Xe Z 

GO TO 631 
REOSEC(IsK) = 929 

IF (OILFACeGEeOILAL') GO TO 632 
IP tINOtI1)<.EQ.9) GO TO 632 
QZERO(IT) QZFROtII) * SRFLOW 
DZFROUIT) DZERO(IT) * 29 
VOFACTCII1) = VCFACT(IT) * 123 

Z =X * SFCCOS 

KOUNT = KOUNT + 1] 

IF (XOUNT SCE Qel) WRITE (631100) I 
MO(ITI) = 9 

Weete (692 119) 11s 2 ‘ 
EANDDI I) = FANDDOLD + 2 * 004 

Y =2Z * 0c6 


I 
» 2 


TANG ITT) = TANG( II) + Y 
Saami = CASH( LT, = Y * CASHFT 
ACGC@AY(L) = ACCPAY(1) + (le = CASHFT) * Y 


) 
BE@GOstUlil = ECCOSTUII) + Y 
weocoe= MESES + 1 


C fete COMPUTE TOTAL REVENUE® ROYALTIES ANO GROSS INCOME. 


REVNUECTiD =. OFLPROCII) * OPRICE + GASPROCIIT) * GPRICE 
Meigen Yin i) = 2nY * REVNUE LT i) 
GROSS(IT) = REVNUT CIT) = ROYL7YOI?) 


C ##*#* CHECK TO SEE IF PLAYER HAS RENEWED EQUIPMENT-ON LEASE 


604 


605 


DO 604 K = Led 

IF (RENEW I sK ol} eLEeUeVL) GO TO 608 ; 
N = RENEW(C 1] 9<9i) 

IF (NeEQeLESSEF(I2d)) GO TO 605 

CONTINUE . 
GO TO 608 

FACTOR = (EQCOST(II) -— TANG(II))/RENEW( 1 9K 92) 

IF (FACTOReLTe0079) FACTOR = 0275 

IF (FACTOReGTe29.0F FACTOR = 2000 

TANG(IT) = TANG(IT) + RENEW IT 9K +2) 

IF (EQCOST(IT)eLTeTANG(II)) EOCOST(IIT}) = TANG(IT) 
IF (IELECTCII)-GT.3) TELECT(II) = 1 


- CASH(I) = CASH(I) - RENEW( I sK 92) * CASHFT 


ACCPAY(I) = ACCPAY(I) + RENEW( Tsk 22) * (Le -— CASHFT} 
IF [FACTOReGTele9) GO TO 607 
VCFACT( IT) = VCFACT(II) * FACTOR 


POT 
POT 
PDT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 


PCT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 


652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
578 
579 


205 


680° 


eS] 
682 
503 
664 
635 
056 
657 
6&5 
6909 
690 
$31 
a¥2 
693 
594 
OY5 
696 
OST 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 


C 


607 
608 


610 


611 


612 


646 


641 


620 


614 


609 


615 


613 


619 
616 


EQAGE(TII) = 0.0 Por 
EOLIFEC(II) = EOLIFF(II)/FACTOR PoT 
GO TO 608 POT 
EOLIFECII) = EOLIFFE(II) + EOAGE(II)/FACTOR PoT 
TEMP = NWELLS(IIT) * 10 _ POT 
TOTHRS = TOTHRS + TEMP POT 
VAR = VCFACT(II) * EXP(EQAGECII)/EOLIFECII)) POT 
OPCOST(II) = XLNGTH * TEMP * (PAY(T) + EMPBEN(I)) + VAR # POT 
1 OILPRDCIT) PoT 
IF (TANGC(IT) LE eDeOeOR-EQAGE (II) -GEeEQLIFc (I1)) GO TO 616 .PDT 
#8 CHECK TO SEE IF PLAYER DESIRES TO CHANGE ULPRECIATION METHOD. PDT 
DO 619 K = 108 PoT 
IF (NELECT(LsKo1)e£L0011) GO FO 612 Pot 
CONTINUE 5 d PDT 
GN TO 6)? POT 
VP CleLeCTttl).29.0) TELECT( 11) = NELECTCI eK o2) Port. 
[ERP EEG (i 1.2060 GOu’O. 616 PoT 
IF {NELECT(iskKs2).eC. ELECT (119) GO TO 612 POT 
IF (NELECT (isk 92) e500] eANDeIELECT(I1)¢EQe2) GO TO 620 Pot 
PENDE® (562) = PENDEP(1s2) + FINE : POT 
PENDEPL 1 +1) = 17 POT 
fe t!etbeci (Ul! )22O.0).GO- 10 626 POT 
heel l=CbG: (111.0. Lie Go. 10-614 PDT 
Pre tIELE GT ( 2 LICe 2.2 GOe 10.015 POT 
fe SCHELL FCT Ui mi.Gl 3), Goto 609 POT 
TEMP = 9.29 POT 
LIFE = FOLIFECII) POT 
20 640 K = IsLIFE POT 
hoa POT 
TEMP = TEMP + x PoT 
X = EQAGE(II)+ 126 PDT 
IF (EOAGE (TT) etEs0.01} X = 0.0 POT 
DO 641 K = 1sLENGTH POT 
DEPREC( II) = DEPREC(II) + (EQOLIFEC II) - X)/TEMP * EOCOSTI(ITI) POT 
Ke=ekot 160 POT 
GO TO 616 POT 
IELECT(II) = 1 POT 
DEPRECCET) = TANGCIIT)/EOLIFECIT) POT 
IELECT(II) = DEPREC(IT) Port 
GO TO 616 . POT 
DEPREC(II) = ITELECT(IT) . Rom 
GO TO 616 POT 
##*#8 COMPUTE DEPRECIATION BY THE DECLINING BALANCE METHOD. POT 
DRATE = 24./EQLIFEC(II) PDT 
IF (MESES-EQ.0) GO TO 613 PoT 
TEMP = MESES/12 POT 
TEMP = EQOCOST(II)D * (1-60 - DRATE)** TEMP POT 
GO TO 619 POT 
TEMP = TANG(IT) POT 
DEPREC(II) = PRATF * TEMP * TIMFAC PoT 
EQAGE(II) = EOAGEC( II) + XLNGTH POT 
TANG(II) = TANGC(II) - DEPREC(IT) POT 
#*#*% COMPUTE NET BEFORE DEPLETION. POT 
TEMP = GROSS(II) - XLOSS(II) - DEPREC(II) - DRILCS(II) -CPCOSTI(SI)PDT 
DRILL = DRILL + ORILCS(IT) POT 
###8 COMPUTE COST DEPLETION. POT 
HOLD2 = INTANG(II) * OILPRDC(II)/RESORS(IT) POT 
RESORS(II) = RESORS(II) - OILPRD(II) PDT 
#¥** COMPUTE PERCENTAGE DEPLETION. POT 
IF (TEMP.LEeHOLD2) GO TO 617 POT 


205 


tae 
713 


714 
dpe Be 
716 
Tat 
718 
719 
720 
721 
ee 
T2353 
724 
v2 
726 
72? 
(irate 


730 
731 
ioe 
733 
734 
735 
736 
137. 
736 
139 
740 
741 
742 
743 
744 
745 
746 
747 
748 
T49 
750 
121 
7152 
753 
754 
155 
756 
Cot 
758 
Log 
760 
761 
1o2 
163 
764% 
765 
766 
767 
768 
769 
770 
Tih 





617 
623 


PERDPL = 046275 * GROSS(I1) 
IF (PERDPLeGTe(Je5 * TEMP)) PERDPL = 0265 * TEMP 


IF (PERNPLeGTeHOLD2) DFPLET(II) = PERDPL : 
IF (PERDOPLeLEeHOLD2) SDEPLET(CII) = HOLD2 
GOPIGn62 3 


OE PLE TCLIa 
BEXNETCIT) TEP = OEPLETCIT) 

INTANG( IT) INTANGO( TY = DEPEETCII) 

IF CINTANG(ITT)eL T2020) ADD = ADD —- INTANG(IT) 
IF (CINTANG(I TD) eh T0000) INTANGCIL) = Ged 


HOL")2 


wou 


C #*## CO'PANY ACCOUNTING 


621 


602 


706 


707 


pOtmeVe = TCTREV OS sie Vnveti.) 
TOVOTG = TOPO = OILPRDITT) 
TOTGAS = TOTGAS + GASPRECTI) 
TOUG<0 == WO"GrO + G2055(2 73 
LOTR Yi = TORRY = ROYLIYIEEL) 
MOTOS CE -PrOTOrPS + Oreos 7{(!1) 
POTGr. = TONUVPR §SOerPREC URI 
Moibee = TOlorE = DEPLET( ily 
TOTTAN = TOTTAN + TANG(IT) 
TOTINT = TOTINT + INTANGCIT) 
OPCOST(II) = OPCOST(II1) + DRILGESTITI) 
CONTINUF 


MESES = ITEMP + LENGTH 

IF (RFORNOD (LT) eLTe%el1) GO TO 706 

TEMP = PAYCAP( 1) + RTEARN(I) 

IF (RONDSCIT) eGEeTEMP) REQRAND(1) = 0.0 

IF (RONOS(1)eLTeTEMP) TEMP = TEMP = BONDS(1) 
IF (TEMP .GFeREQRND(I)) GO Tu 706 


REQRNON(I) = TEMP ’ 
DIVREC = DVRATC * INVEST(I) * TIMFAC 
INTPAY = (STLOAN(I) * STRATE + BONDS(I) * BDRATE) * TIMFAC 


IF (GAINLT( I) e¢GTeXLOSLT(I)) GAINLTCT) GAINLT(I) - XLOSLTC(T) 


IF (GAINLTO(1)-GTeXLOSLT(I)) ALOSLT(1I) = 0.0 
TF (GAINLT CI) eLE¢XLOSLT(1)) XLOSLT(I) = XLOSLT(I) = GAINLT(T) 
IF (GAINLTC I) eLEeXLOSLT(I)) GAINLT(I) = 020 


CPGAIN GAINLT(I) + OTHINC(IT) 

CPLOSS XLOSLT(I) + OTHLOS(T) 

CASH(I) = CASH( IT) + DIVREC - INTPAY + TOTREV * CASHFT 
ACCREC( I) = ACCREC(I) + TOTREV * (le - CASHFT) 

DIVPAY = DIVONO( I) * SHARES(1) 

XORIL = DRILL * CASHFT 

ACCPAY(1) = ACCPAY(I) + ORILL * (le - CASHFT) 

PENLTY = PENSEL( 192) + PENRVT( 192) + PENABD( 192) + PENDEP(I 92) 
REDEEM = BONODS( I) * TIMFAC * 205 

ACCPAY(I) = ACCPAY(I) + EANDD( I) * (le -— CASHFT) 

CASH(I) = CASH(I) - TOTRYL =- DELAYR =- XDRIL = TOTOPC - 
1 OPRES( I) - ABDCOS(I) = REDEEM - EANCD(I) * CASHFT = PENLTY 
INVEST(I) = INVEST(I) + REQINVET) 

RONNS(I) = RONODS( 1) + REORND(L) - REDEEM 

ADMIN = ASSETS( I) *® 292 

IF (ORCARY( 1) eLEe0e0) GO TO 707 

X = ADMIN * ORCARY(T)/ORBASE * Ool 

IF (XeGTeADMIN#025) X = ADMIN * 025 

ADMIN = ADMIN = X 

ORCARY(I) = ORCARY(I) + OPRESTI) 

CASHE( I) = CASH(I) = REQINV(I) + REQRND(I) + REQLNS(I) = ADMIN 
TOTOPE = TOTRYL + DELAYR + DRILL + TOTOPC + TOTDOPR + TOTOPL 
1 + ABDCOS(1) 


POT 
POT 
POT 
POT 
PDT 
POT 
EOF 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 


POT 


POT 
PDT 
PDT 
POT 
POT 
POT 
EDT 
POT 
POT 
POT 
PDT 
PDT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
Pot 
POT 
PDT 
PDT 
POT 


207 


772 
413 


774 
775 
776 
aed 
778 
779 
780 
73] 
7382 
783 
784 
785 
786 
787 
788 
789 
790 
79) 
792 
793 
794 
795 
796 
797 
798 
799 
8U0 
891 
802 
803 
3804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 





709 


730 


731 


703 
740 


742 


OPNET 
TOTIN 
OTHEX 
HOLD1 
PRETA 
STATA 
FEDTA 
IF (P 
IF (P 
1 STAT 
TAXLT 
CASri ( 
NETIN 
1 + AD 
HOLD2 
RTEAR 
leat 
IF (¢ 
MOJOT 
eT 
MGUOT 
iF (% 
RISTO 
PAYCA 
CASH ( 
SHARE 
feaets 
SELL 
BISTO 
GO TO 
SEEL 
BISTO 
EQUIT 
IF (C¢ 
EMFRG 
CASH( 
STLOA 
ASSET 
TOTLI 
IF (A 
BOOK 
DO 60 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
DO 62 
Ml = 
M2 = 
M3 = 
M4 
WRITE 
[IF (M 
IF (M 
IF (M 
IF (™ 
WRITE 
WRITE 


= TOTREV - TOTOPE' 
C = CPGAIN + DIVREC 
P = INTPAY + ADMIN + EANDO(1) + OPRESCI) + CPL 


= 0.85 * DIVREC 
X = OPNET + TOTINC - OTHEXP - HOLD1 - GAINLTEI 
X = STAKR #* TOTGRO 
X = FTAXR * (PRETAX = STATAX) 
RETAX-STATAXe¢LTe00VU) FENTAX = 0.0 


RETAX=STATAX eh Tete) OTHLODS( I) = OTHLOSC(I) + ARS(PRETAX - 
AX) 
G = e25 * GAINLTOL) 
t) = CASHEL!) = STATAX = FEDTAX = TAXLTG 
C(t) = PRETAX = STATAX = FEDTAX - TAXLTG + GAINLTC(1I) + HOLD1 
D + XTEMIFC1} ; 
= RTEARN( I) 
NOT) = RTEARNGOT} + NETINCCI) - PENLTY = DIVPAY 
ASES et Oel) GO TO 799 
QJOTECLsaeL Fel -0)} MQUOTEC1) = Led 
ECTS = MQUOTECI) = MOQUOTECIL) * (DIV3SAS - OIVDNDCI))/DIVBAS * 
Fy 
F(t) = MQUOTE(T) + RTEARN(CI) - AHOLD2Z/RTEARN(I) * MQUOTE(I) 
QUOTE CT Del Tele) MQUOTE(I) = 1260 
Ge = SOLOS!T fli = MeouUOTE(T) 
P({[) = PAYCAP(T) + PISTOK 
IT) = CASH(T) + BISTOX<K 
Sin) = SHARESt]) + SOEDSTUL) 
OLDSTCI) «GhFetev) GO TO 730 
> OV - 
K = ABSIBISTOK) 
731 
= RISTOK 
K = WeD e 
Y = NETINCCL) = PENLTY — DIVPAY + SELL - BISTOK 
ASH(1)-¢GEeD0e!1)) GO TO 703 


= ARS(CASH(I)) * lel 
I) = 0.0 
NOI) = STLOANCI) + REQLNSTI) + EMERG 


Css 


) 


Stl) = CASH(T) + ACCREC(I) + TOTTAN + TOTINT + INVEST(I) 


B = ACCPAY(1) + STLOAN(1) + BONDS(I) + PAYCAP ( 
BS(ASSETSCL)-TOTLIB) eGTeleO) GO TO 741 
= (PAYCAP(1) + RTEARN(T))/SHARES(1) 
1 J = LeNCOPYS 
(691) 
(691491) 
(693) 
(601402) (LEASE(K) >» LEASE (K428) + K=1+28) 
(601) 
(6s1501) Is MONTHs NYEAR 
2K = 1LleMAXOWN +4 
LESSEECI sk) 
LESSEECI +k+1) 
LESSEECI eK+2) 
LESSEE(1 +k +3) 
(6+1502) Mle M2* M30 MG 
1eLE«0) Ml 
20e«LEe0) M2 
3eLEeO) M3 
4eLEe9) M4 l ; 
(6%15U3) OILPRD(M1L) +s OILPRD(M2) + OILPRDI(M3) » 
(691504) GASPRD(M1)» GASPRD(M2) + GASPRDIM3) » 


l 
l 
l 


oo ou 


1) + RTEARN(T) 


OILPRD(M4) 
GASPRDI(M4) 


POT 
POT 


POT 
POT 
POT 
PDT 
POT 
POT 
PDT 
PDT 
Po 
PDT 
POT 
PDT 
POT 
PDT 
PDT 
POT 
POT 
PDT 
POT 
POT 
PDT 
PDT 
Pow 
PDT 
Epil 
PDT 
PDT 
PDT 
POT 
PDT 
POT 
POT 
POT 
PDT 
POT 
PDT 
PDT 
POT 
POT 
POT 
PDT 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
PDT 
POT 
POT 


832 
33 


834 
835 
836 
837 
838 
839 
B40 
341 
842 
843 
B44 
845 
846 
847 
848 
849 
850 
851 
852 
853 
354 
855 
656 
857 
B58 
329 
860 
861 
862 
863 
864 
865 
866 
867 
868 
369 
870 
871 
872 
S73 
874 
875 
876 
877 
878 
879 
880 
881 
882 


208 


883- 


884 
885 
886 
887 
888 
889 
890 
891 





622 


710 


W1 


TMl2 


WRITE (691505) REVNUE(M1) » REVNUE(M2)s REVNUE(M3)s REVNUE(M4) 
WRITE (691506) ROYLTY(M1) » ROYLTY (M2) 9 ROYLTY(M3)»s ROYLTY(M4) 


WRITE (691507) GROSS(M1)» GROSS(M2)s GROSS(M3)»s GROSS(M4) 
WRITE (691508) OPCOSTIM]) » OPCOST(M2)» OPCOST(M3)» OPCOST(IM4S) 
@RITe (691509) DEPRECCH1) >» DEPREC(iM2)s DEPRECI(M3) » DEPRECIM4A) 
WRITE (691510) OEPLET{Mi) > OEPLETIN2Z)» DEPLEDM(M2)s DEPECTINA 
WRITE (6o1511) BTXNET(MI) + BIXNET(M2) > BIXNET(M3) 2 BIXNETIMS) 
WRITE (6925722) NXELLSCM1) 9 NWELLS(M2)s NWELLS(M3)s NWELLS(Y4) 
CONTINUE | 

WRITE (691) 

WRITE (651600) ITs MONTHs NYFAR 

WRITE (602) 

WRITE (691601) 

WRITE UGs.6u2) TOTREV 

WRITE (6s163}) TOTREVe CASH(T) 

WRITE (651604) ACCRECUT) 

WRitc (591605) TOTTAN 

Wime (6s260/) TOTSYLs TOTINT 7 

WRITE (6926.8) DELAYR»e INVEST(T) 

ACVVES (Os. OU9) ORM» ASSETSII) 

We ite sUGe1Gl0) TOTOPC 


Bie GOs vO. 2) 7 OTGOR 


ARITE (6e1612) TOTDPL 

WRITE (520.6132) ABDCOS(I}s ACCPATI]) 
Meche tOsl6.4)) TO,OPes SILCANULD) 
WRITE (691625) OP%.ETs BONODS(I) 

SR ITE (621016) PAYCAP CT) 

Heel 6OslOoliy RTE ART) 

“RITE (Selold) CPGAINe TOTLIA 

WRITE (6*1619) OiVRec 

“Rite €60162) TOOTING 

WRITE (602627) ) SHARES(T) 

WRITE (6416277) “QJOTE CT? os BOOK 
WRITE (61625) CPLOSS . 
WRITE (691624) INTPAY 

WRITE (691625) ADMIN 

WRITE (621676) FANDODCT) 

WRITE (601627) OPRES(I)s REULNS( IT) 2s REQBNDI(T) 

WRITE (6010248) OTHEAPs REQINV( IT)» EMERG 

WRITE (691629) TOTHRS» PAY(T) 
WRITE (691630) HOLD]L» EMPSEN(T) 
WRITE (691631) GAINLTC(I)» STRIKE 
WRITE (691632) FEOTAX»s XLNGTH 
WRITE (691633) STATAXs OWN 

WRITE (691634) TAXLTGs OILALW 
WRITE (691635) NETINCI I)» GASALW 
WRITE (691641) 

WRITE (691636) PENLTY» SALE 
WRITE (691637) DIVOND(I)» DIVPAYs PAYAVG 
IF (SOLOST(T) eLTe02U) GO TO 710 

WRITE (6291638) SOLOST( I)» SELL» BENAVG 
GO TO 711 

TEMP = ABS(SOLDST(I)) 

SOLOST(1I) = UeO 

WRITE(601638) SOLOST(I)»s SELL» BENAVG 
WRITE(621639) TEMPs RISTOK 

GO TO 722 

TEMP = 020 

WRITE(691639) TEMPs BISTOK 

WRITE (6291640) EQUITY 


7207 


POT 
POT 
POT 
POT 


“POT 


POT 
POT 
POT 
POT 
POT 


POT- 


POT 
POT 
POT 
PDT 
PDT 
POT 
POT 
18) 
POT 
POT 
PDT 
POT 
POT 
Cor 
Por 
POT 
POT 
POT 
PDT 
ren f 
POT 
POT 
POT 
PCT 
POT 
POT 
PDT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
POT 
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892 
893 


894 
895 
696 
B97 
898 
899 
900 
901 
902 
903 
904 
99> 
906 
IO 
908 
909 
910 
el 
ole 
S13 
914 
ots 
916 
S17 
918 
oi9 
920 
92 
922 
9 Fs 
924 
925 
926 
924 
928 
929 
930 
931 
932 
933 
934 
S39 
936 
937 
728 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
o>) 





721 
722 
v20 


724 
6) 


811 


210 


WRITE (691641) POT 952 
WRITE (691641) POT 953 
WRITE (651641) POT 954 
WRITE (691642 } POT 955 
WRITE (691641) - POT 956 
WRITE (691659) POT 957 
[= VUPENSEL (ls+2}6Lb.0.CL) GO TO 721 POT 958 
WRITE $6%1950) PENSEL(Is1)s PENSEL(I s2)} POT 959 
frmerenevrt (lsc) st ..0l) GO 10 722 PDT 960 
WRITE (6se24U0T) SENRVT CIT >1)s PENQVT(Es2) POT 941 
IF (PENSROLis2)eleeJeO1) GC TO 723 PDT 962 
HATE (G5 U2) PENAZD (sl) s (PENAGOI Tso} POT 963 
IF PPSNDEP (i s2 eli eUeO!l* GO 79 724 PDT 964 
WRITE (6-503) PENDEO (Ts ii 6 PENDERI I s2} POT 965 
weet } = Ne TINCT AY SXENG ER POT 966 
CON TUNE POT 967 
MONTA = VONTH + } PDT 966 
DR ge Nore ee. Sb Oe) hse TO. 725 POT 969 
VWGGee = NOTCYS = 7 POT 979 
ele) agte ian ya Par oT 
AQT ET se} ORM, O1ltse NOECKS PDT 9i2 
Amr Te (isi?) YON THsN4EAn ss LENGits MESES s NCOP S sweUAY > VAXKOUNSLASINM © -C oles 
WQPTSCP el LE CINE SOPRICE sUPRICE sAGUNE) SF TAAR SC STAARs oTKFAC sVARCOS POT 374 
AVis oi lst.) RATCSOVeGENF IT ocdtintiAo so RC ALUR DPAYUASSDIVDAS sUNBASTC 9 PDT oo 
lo RA eS POT 976 
SRITEC Toth) AN tS ROYL os TERISR o TERMoP sUVAATE SUX TANG SOURINTO oF KCCOS POT YTT 
ARITEC sii? OIL AL sGASALWtORYNC ds CASHFET sQUOTFT sFRCFACs ACDFACs POT 976 
Ee ar 4 POT 979 
ari Te lelii) PMECOS sACIOCOS »s Sc CCOa 9 FRE LOW sACFLOn eo PRFLOW » SKFLOW sSDECLNPODT Yyod 
DO sli [ = lL»sMPLAY : PST 981 
WRITEC 7913) CASAC IL) SASSETSUI ) sACCREC(II) sACCPAY( IL) os INVEST(I) » POT 982 
1 STLOANCI} s30'0501 ) sMGUOTECT) POT 983 
WRITE( 7913) PAYCAP(L) sR TEARNOE) sSHARES(1) sORCARY( I) sOTHLOS( 1)» POT 944 
1 PAY(T)s NETINCCIils EXPRENCT) : POT 985 
CONTINUE POT 986 
WRITECTslLod C(I LESSEECT »9K) es K=1920)9 IT=lsNPLAY) POT 987 
WRITE( 7518) LEASE PDT 988 
WRITE(79i18) NWELLS POT 989 
WRITE( 7918) NPDATE POT 990 
WRITE( 7925) RESORS POT 991 
WRITE( 7527) EQLIFE POT 992 
WRITE( 7927) EQAGE POT 993 
WRITE(7925) TANG POT 994 
WRITE(7e¢25) INTANG POT 995 
WRITE( 7918) ITELECT POT 996 
WRITE( 7916) VCFACT POT 997 
WRITE( 7925) ACRES POT 998 
WRITE( 7916} GEOFAC POT 999 
WRITE(7e11) LESFAC POT1000 
WRITE(7eo1l1l) TIME POT1OO1 
WRITE( 7911) QZERO POT1002 
WRITE( 7929) DZERO ‘ PDOT1003 
WRITE( 7918) NO POT1004 
WRITE( 7925} RINMIN POT1005 
WRITE(799) (WHELNUM(ITs1)s [F=1s1000) POT1O06 
WRITE( 7916) (WELNUM(Is2)s [=1ls1000) POT1OO7 
WRITE( 7225) EQCOST POT1OOS 
WRITE( 7975) PINT POT1OOS 
WRITE( 7911) VISCTY POT1O1O 
WRITE( 7916) FVF POT1O11 





(G 


211 


WRITE (7925) GORINT PDT1012 
JUMP = } POT1013 
GO TO 101 PDT1014 

PDT1015 


1vO0U FORMAT (1Xs32HYOU HAVE ATTEMPTED TO SELL LEASEsF4e0s82HAN MAYBE OTPODT1016 
IHERS WHICH YOU DO NOT OWNe YOU HAVE BEEN PENALIZED A TOTAL AMOUNTPDT1O17 
2 OF S$eF9e2/17H FOR THIS ACTIONe/) POT1018 
1001 FORMAT (1X»s34HYOU HAVE ATTEMPTED TO REVERT LEASE sF4.091Xs77HAN MAYPDTIOLI 
1BE OTHERS WHICH YOU DO NOT OwNe YOU HAVE BEEN PENALIZED A TOTAL, APDT1020 
2MOUNT/5H OF SoF9e2917H FOR THIS ACTIONe/) PDT1021 
1U02 FORMAT (1Xe35HYOU HAVE ATTEMPTED TO ABANDON LEASEsF4e091Xs77HAN MAPDT1022 
LYBE OTHERS WHICH YOU DO NOT OWNe YOU HAVE BEEN PENALIZED A TOTAL PDT1023 
2AMOUNT/5H OF SeF9e2s17H FOR THIS ACTIONe/) . = PDT1024 
1003 FORMAT (14s8O0HYOU HAVE ATTEMPTED TO MAKE AN UNAUTHORIZED CHANGE INPDT2025 
1 METHOD FOR COMPLETING DEPRECs1LUHIATION FORsF4e0918H AND MAYBE OTHEPDT1026 


2RSe/23H YOU HAVE BEEN FINED SoF10¢O0e%16HFOR THIS ACTIONe ) PDOT1027 
1100 FORMAT (43Xs43HLEASE DEVELOPMENT REPORT FOR COMPANY NUMBERS IG/) PDT1028 
1101 FORMAT (/47Xs32HORILLING REPORT FOR LEASE NUMBERS I4G// PDOT1029 


L1 LX sSHMONTHs4Xe1L2HVELL DRILLED 4X s6HSTATUS s4Xe1l7HINITIAL FLOW RATEPDT1030 
294Xs1lBHINITIAL PRESSURE s4X 1 8HPRODUCTIVITY INDEX »4Xs9HVISCOSITY »4XPDT19031 


Jel 7HFORMe VOLe FACTOR) PDT1032 
1103 FORMAT (1H o13sAXs1TGs7TAsAGs7XsF1060) PDT1033 
L104 FORMAT (/40X s3GHFRACTURING REPORT FOR LEASE NUMBER»s14/) PDOT1034 
1105 FORMAT (1X s2iHTOTAL welLLS FRACTURED sF5eC o35Xe18HAT A TOTAL COST OF »PDT1L035 

1 FoeC/s/) ; PDT1036 
1106 FORMAT (744Xs37HACID TREATING REPCRT FOR LEASE NUMBER>sI4/) POT1037 
1107 FORMAT (I1XslYHTOTAL WELLS TREATCDsFbdeOs3Xe1BHAT A TOTAL COST OFs PCT1038 

l Foe0/) E PDT1039 
1109 FORMAT (1H sIT3s0XsTGs7XsAGs7TXsFlLOcOslLIXsFlLOecOs9XesFlOe2slOXsF8e2s PDTIO4O 

l BX»sFIO.2) POT1N41 


1110 FORMAT (1Xs48HONE WELL WAS FRACTURED AND TESTED AT A COST OF $s PDT1042 
1 Fl00¢0959H. THE FRACTURE TREATMENT DID NOT IMPROVE WELL PERFORMANPDT1043 
2GR s/s) PDT1044 

L111 FORMAT (1Xs51HONE wELL WAS ACID TREATED AND TESTED AT, A COST OF SePDT1045 
1 Fi060»55He THE ACID TREATMENT DID NOT IMPROVE WELL PERFORMANCE > )PDT1046 

1112 FORMAT (/43Xs40HPUMP INSTALLMENT REPORT FOR LEASE NUMBER »14// PDTLOG7 
1 1Xs34HPUMPS WERE INSTALLED ON A TOTAL OF sF60c0s PDT1048 
2 27H WELLS AT A TOTAL COST OF 3F1060) . PDT1049 

1113 FORMAT (/1X%s57HA SECONDARY RECOVERY SYSTEM WAS INSTALLED ON LEASE PDT1050 


INJMBER »14921H AT A TOTAL COST OF $sF1020) PDT1051 
1114 FORMAT (1H o13e+d3Xeloos7XsAGs7XsFl1OeOolLIXsFlOeD 9X sFIN62) POT1052 
1401 FORMAT (26Xs/9HTHIS IS A LIST OF LEASES BY NUMBER THAT ARE FOR SALPDT1053 

1E RY THE GAME ADMINISTRATOR.) PDT1054 
1402 FORMAT (42X913942% 513) PDT1055 
1501 FORMAT (23Xs32HLEASE REPORTS FOR COMPANY NUMBERs1493X>» PDT1056 

1 28HFOR PERIOD ENDING WITH MONTHs1592X96H OF YEARs149]lHe/) POT1057 
1502 FORMAT (1H »4(4Xs12HLEASE NUMHER®1I16)) PDT1058 
15U3 FORMAT (1H »4(4Xs19HOIL PRODUCED (BBLS) »F9eU)) PDT1059 
1504 FORMAT (1H 24(4Xs19HGAS PRODUCED (MSCF) »F920)) PDT1060 
1505 FORMAT (1H s4(4GXs18HREVENUE EARNED (3) 0F10¢0)) PDOT1061 
1506 FORMAT (1H »4(4Xs1lKHROYALTIES PAID (8) 9F10¢0)) PDT1062 
1507 FORMAT (1H 94(4Xse16HGROSS INCOME (3) 92Xe9F10¢0)) PDT1063 
1508 FORMAT {(]H 94(4Xs]9HOP + DRILL COST (3) oF9e0)) PDT1064 
1599 FORMAT (1H »4(4Xs16HDEPRECTATION (8) 92XsF1060)) PDT1065 
1510 FORMAT (1H 94(4Xs13HDEPLETION (8)95XeF10290)) PDT1066 
1511 FORMAT (1H #4(4Xs18HNET REFORE TAX (3) sF100¢VU)) POT1067 
1512 FORMAT (1H »94(4X%s15HWELLS PRODUCINGs3X»sI10)/) POT1068 
1600 FORMAT CI1OXsG1LHFINANCIAL STATUS SHEET FOR COMPANY NUMBER 913 934H FPDT1069 

10R THE PERIOD ENDING WITH MONTHSI399H OF YEARs13) PDT1070 


1601 FORMAT (25Xs16HINCOME STATEMENT s24X91HI 927X911 3HBALANCE SHEET/65X» PDT1LO71 


lL LHI/25X s1L6HOPERATING INCOME 924X91HI +30X »s6HASSETS/65X51H1) 

1692 FORMAT (1X s«4GOHREVENLE FROM SALE OF OIL AND NATURAL GASs1l1Xs1lH$> 

DE es O's 2 Hecls) ’ 

1663 FORMAT (7Xs22HTOTAL OPERATING INCOME s24XsF11.092H Iy 

l 3X s12HCASH ON HAND +36Xe1HSsF11.-0) 

1604 FORMAT (65XslHI >» 
1 3Xel9HACCOUNTS RECEIVABLE »30X0F11-0) 
1605 FORMAT (24Xs15HOPERATING EXPENSES o23Xel1HI 9 
1 3Xel8HTANGISLE COULIPMENTs31X%eF11-0) 
L607 FORMAT (IX elLGHROVYALTIES PAIDs35XeF11.032H I> 

lL 3X s35HINTAMGIRLE CEASE INVESTMENT AT COST914X0F11.0) 
L608 FOKMAT (IXsLBHDELAY RENTALS + 39X oF lleQe2h I> 

1 SXsISHOUTSIDE INVESTMENTS s3uUX oF11.0) 
1609 FORMAT CIXsl4AORILLING COSTS s«3OXoF lL lL eOo2H Js 

LOVAe CAF OIKEL ASSET Ss31 X55) oo 
L6iu FORMAT (LX eLSROPERATING COSTS937X sF!11.0e2H 1) 

T6111 FORMAT (ixXelZRDEPSSCIATIDWs4GXer 2 te Gie24t 14 

ee PAs ee ae ay 
1612 FORMAT (IXsSADEPLE TION 0G43X eFitedeoZH 2) 
£613 FORMAT (iAs TL VMASAMCUOTISENT COSTG039%eFl26002H I> 

Ve oXs POHIAC COU 67S PAYASL SE e4GAS Pr Pee 
16i4 FORMAT (7A 52GHR79TAL OPENATInNG EXPENSES e22X0FlieMe2H I+ 

PD PACT OMSrCK, Torn bial s 33 hee se) 

MGOlo FOR ClAe2UiINGT "OPE AATING 1h COMcwoi ss tober 6 Os lhl. 

1 3X eSnGOnyS e6GrAsF lL LeU} 

1516 FORMAT LO gx «asl: s 

fet As OHP Ri IN GAP: TAL eae xeer oo 
1617 FORMAL iZ7AsL2nOTRER INCOME «264s HI s 

PISA s i TRE TACNSO BARN NG Ss 324 or lle) 

1618 FORMAT (ir el ZHCAPI TAL GAINS s39AsF iL e092H Jo : 

1] OXeLTATATSL LIABILITIES <26XeF lies) f 
16i9 FORMAT (1A+elLonMDIVIDENOS RECEIVED» 34XeFl1l-Ge2rt 1) 
1a2uU FORSAT (7AeT GHTOTAL OTHER INCOME s2oXeFlileOe2H 1) 

1621 FORMAT (65XoiHT >» 


1 3X e34HSHAKES OF CChMON STUCK ULTSTANDING 92X sF1O00G) 


1622 FORMAT (20Xs14HOTHER EXPENSES S25A 51HI1 » 
L 3X1 4HHARKET QUOTE BeFdeZsuXsICHGUGOX VALUE s2XelHS sF8e2) 
1623 FORMAT (IXsiSnCAPITAL LOSSES e3TAs iS oF 1l1eO%2H I) 
1624 FORMAT (LAsiBHINTERCST PATO 39XsFileds2H 1) 
1625. FORMAT (1X s23HAOMINISTRATIVE OVERHEAD 2 29X0F112¢092H Is 
Pezixsé25HoOECISIONS AND ENVIROMENT } : 
1626 FORMAT (1Xs27HEXPLORATION AND DEVELOPMENT 925XsF11.¢092H I) 
1627 FORMAT (IXs1YHOPERATIONS RESTCARCH 233K oFlleDs2H I> 
13X slL6HSHORT TERM LOANS » SX elASsF lU¢092X s5SHBONDS 9 LOX LHS9F 1020) 
1628 FORMAT (7Xs20HTOTAL OTHER EXPENSES es 26XsF1l1¢O%2H Is 
13X slLOHINVESTHENTS MADE 26XeF100¢092X* IGHEMERGENCY LOANSS »F 10-0) 


1629 FORMAT (65Xsl1HI» 
1 3Xs22HLABOR UTILIZED (HOURS) oe 1X9F9e2s2Xs]16HLABOK RATE/HRe S$» 
2 FlQc2) 

1630 FORMAT (1Xs25HLESS DIVIDEND DEDUCTIONS s27XeF1leOe2H I> 


L 3X s20HFRINGE RENFFITS/HOURS 2X oF 1002) 
1631 FORMAT (7Xs14HLONG TERM GAIN+32X9Flle092H Is3Xs21HPROBABILITY 
LTRIKEs1XsF10.2) 
1632 FORMAT (1Xsl1LHFEDERAL TAXs41X9F11e¢0%2H I>» 
1 3X*22HPERIOD LENGTH (MONTHS) o2X9F8e0} 
1633 FORMAT (1Xs9HSTATE TAXs43XeF11¢092H Ie 
1 3Xe22HNUMBER OF LEASES OWNED s2XsF800) 
1634 FORMAT (1X+22HTAX ON LONG TERM GAINS 930X9F1l1.6002H Io 
1 3X»24HOIL ALLOWABLE BBLS/MONTH oF 860) 
1635 FORMAT (7Xs1lOHNET INCOME s36XsFlleVUse2H I>» 


PBDITLO7F2Z 
POT Gi. 
POTLO74% 
PDT LOT. 
POT1076 
POT1LO?T 
POTIO75 
PDT1079 
PDT.0689 
PDTI1OSI 


POELOS 2% 


POLES 
POTLOc4s 
PDTiL035 
PDT1056< 
Poros 

PDTiC&SS§ 
POT1IC&9 
POTINGD 
POLLOo: 
POTLOS2 
POTIO93 
POTLOGYS 
Por so ys 
PDTiC%96 
PCOLLOYT 
POT1OYS 
POTLAYIS 
POT1iC9 
PDOTi101 
PDFL102 
PDTi103 
POT1Li04 
POTi1105 
PJ1i106 
POTi107 
PDT1108 
POT1i09 
PDOTL110 
POTIAT 
POT1112 
POT1i13 
POTL114 
POT1115 
POT1116 
POTi1l17 
PDT1118 
POT1119 
POT1120 
PDOT1121 
POT1122 


OF PoPD Niaz 


POT1124 
POT1125 
POT1126 
POVU2a 
POT1128 
POT1129 
PDT1130 
POT1131 





«2 3X e24HGAS ALLOWABLE MSCF/MONTH9F8.0) , PDT1132 
1636 FORMAT (1Xsl9HPENALTIES AND FINES 932X91HS0F11¢092H I> PDT1133 
1 3Xe35HNUMBER OF LEASES AVAILABLE FOR SALE 915XoF 206.0) P911134 
1637 FORMAT (ixXsiBHDIVIDEND PER SHARE el XelH>eFlOe2s4Xe1SHAMOUNT PAID OULPDT1!35 
LTs3XeFlleGe2n Le POT1136 

2 3ZAs25HAVERAGE INDUSTRY WAGE RATE s22Xs1H3eF11.2) POT1137 
1638 FORMAT {€1XslL7HCOMYON STUCK SOLO e3XeF lLOeus4Xes]5HAMOUNT RECEIVED 03XePDT1138 
1 FlleOQo2H I> P91T1139 

2 3BXs30HAVERAGE INOUSTRY FRINGE SENEFIT RATE S13X0F11.2) POT1i40 
1639 FORMA™ (1XslyASTOCK PURCHASED SSK oFLGeUSGAsLSHAYMUUNT PAID OUT23Xs PDTL1I41 
1 FlieGo2H 3} POT1142 
L640 FURMAT (1LAs3LACHANGE IN STOCKHOLDERS= TQUITYs2iXeF1lleO0s2H 1) POT1143 
1641 FORMAT (S5XelH!) POT1144 
1650 FORMAT (65(2H -)/62XsTHREMARKS/) POT1145 
999 CALL EXIT PDT1146 
EN , POT1147 
SUBROUTINE RANDNO {(RNUM) POT1148 

I = RNUM * 10.0 a eee POT1149 

1 CONTINUE POT ioG 
RNUM = (RNUM * 100. + 3¢)#*2 PDT1151 

X = RNUM #* 2.002 PDT1152 

M= Xx POT1153 
Y=M POT1154 
RNUM = X = Y PDT1155 

J = RNUM * 10.0 POT1156 
HeweplefO.!)) GO TO 1 POTIIay 
RETURN PO0T1158 

END PO0T1159 
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APPENDIX C 
Program Output 





a - _ 7 
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APPENDIX D 
Listing of the Carryover and Decision Decks 
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APPENDIX E 
Formula Derivations 











Derivation of the hauation fer taemvecline Curve 


es ee ti a ee ae mee em ee ee 


The derivation of the decline curve is b2gun by starting wi 


the equation for the slopeiof a curve: 


~dq/dt 
2 ers 
where ; 
ee 


the slope of the curve. 


Rearranging the equation gives: 
dq 


-D dt = q ° 


Integrating the equation above within the limits of t= 0 tote=t, 








and q = qo to q = q,! 
t qt 
-Dt; = Ing 
0 do 
Woich is 
-Dt = Ing, —- In q = In ot ° 
v Q9 


When the exponential of both sides of the equation is taken, the result is: 


Rearranging this equation provides the equation desire1: 
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Tne Derivation of the Equation to Calculate Initial Flow Rate 


ewe ee w= ee ee ee a ee we ee re eee ee 


The derivation of the equation to calculate the initial flow 
rate when Che recoverable reserves and tne decline Curyosarce sm oa, 


begins with the equation for the decline curve which is: 


If a low limit for q. is picked so that: 
Vlow limit) = 4 * FACTOR 


Where: 
PACTOR = some small fraction, 


Solving for q, at the low limit gives: 
a ~Dt 

I FACTOR = do e 
and by dividing both sides by 4, provides: 

FACTOR=e7” , 
The next steo is to solve for t at the low limit which is: 


t = In FACTOR/-D_ . 


The reserves in the reservoir are equal to: 


i 
Reserves Je ebb 
‘ O 
wnere $ 


t = the time at the low limit. 
Integrating and suostituting the value obtained for t results in: 


BO on are 
Reserves = —) got FACTCR 4 Ao 
DD 


is aa cp 0-) 
D 
Solving for dy gives: 


qo = (Reserves) (D) 


























